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ABSTRACT 

EXERCISE*. IS A *-* INTENSE PROGRAM ^E£ T 3H£3 

TO TEST FOR RELIABLE OPERA? JON OP THE PROCESSOR 

INS^?vCTSON- e AND THE PAPER TAPE EQUIPMENT. THE 

Pl»CH# HIGH SPtE'P READER/PUNCH* IKS rEAL TT**. 
CL^-0*# A«D THE MCVA IKSTRyCTlONS* THE DEVICES 
TO BE* US£» ARE 8ELECTEB B¥ CONSOLE SWITCHS 
AND ARE. SERVICED VIA THE IKT^RUPT SYSTEM. 

MACHINE REQUIREMENTS 

STA»DR£D POm PROCESSOR 

2K REHB/WtlE ME»R¥# 'MINIMUM 

OPTIONAL EQOlPPEMf 
,1 ' ' TELETYPE REAPER 

;g TELETYPE PUNCH 

; 3 ' ' M16H SPEED READER 

; 4 M16K SPEED PtJIICH 
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REAL TIME CLOCK 



13. SWITCH SETTINGS 

13V! STARTING ADDRESS *§§§»§£ ■ 

| 3 V2 SWITCH iCI5 ' "ACTIVATE KISH SPEED PtffcCH _ 

I3V3 SWITCH !<1> ■ "" . " " READER 

I3V4 JS*ITCH,.gn> • __*T TELETYPE RP^-EE 

J3V5 SWITCH SCI > ^ _. . -- " P -X'"«^ 

i 3V6 -3ffTTCH-Al iT„ _1_je? . &***-. TI*S JXOCK 

J3V7 SWfCH^STF) ^ACTIVATE S^0N3 FT? 

I3VS SWITCH 6X1) ^ACTIVATE SEC©t4D PTM 

3 Vf SW?.TCH niJ ACTIVATE SEC»© "I 

t}| P - 'SftlTCH 8*I> -ACTIVATE SECOND TTO 

4. OPERATING PROCEEDURE 

4V1 " • mm THE PM861AM ¥!A THE B1WARY LOADER 

4V6 SET SWITCHES" TO §§§«§2 

J*.; jwz'^m^t^ mix mm 'jntxll mahually stopped 

OR A ESSOR IS' DETECTED. 
4,5 % I-/OUT ttW^W^TEStlHS^ ^^ ^ ^ ^^^^ 

4 * ..- DE¥ICE VILL BE ACTIVATED. THE' 'SWITCHS "ARE 

' READ AT THE COMPLETION "OF EACH PASS OF THE . 

instruction test* it a c§«soli: $»-:tch mas 

SEEH SET/CLEARED"DWIMG WE WSTRtJCIlWf 

TEST TME^DEVICE MILL BE ACTIVATED/DEACTIVATED 

«* Tm E ?? ^ST «6H SPEED REAPER A» P«C« 

!*;*S , RAISE THE READER LEWER 

% *i::::.i SET SWITCHES AND l 

t^tr^t W KEN 5 TO 6 FEET OF TAPE HAVE 

'•-• C :. J SEEM PUNCKEB PRESS STOP- 

^ liSEMT THE 'TAPE INTO THE READER 

'*s"p*4 CLUSE TEE'LEWER 

*t*f*! PRESS CONTINUE 

•^•«*5 TME TAP£ WILL' BE CHECKEB 
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4*5*3 
4V5V3«f 

4. 5.3.3 
4V5V3V4 



4*5.3.5 
4V5V3.6 



TO TEST THE TELETYPE READER AMD PUNCH 
SET THE TELETYPE READER TO FREE 

SET SWITCHES 2 AND 3 

WHEN SEVERAL INCHES OF TAPE 

HAVE BEEN PUNCHED INSERT THE 

LEADER.-. INTO THE READER- 
SET THE READER SWITCH TO START 
THE TAPE WILL BE CHECKED 



5. PROGRAM OUTPUT/ERROR DISCRIPTION 

5.1 WHEN A MALFUNCTION IS DETECTED THE PROGRAM 
WILL MALT. CONSULT THE LISTING FOR THE 
CAUSE OF ERROR. 

5.2 UPON CONTINUING FROM A ERROR MOST ROUTINES 
WILL ENTER A LOOP USING THE FAILING OPERANDS. 

5.3 MOST ROUTINES ISSUE A "P" PULSECA74* FOR 
SYNCING A SCOPE. IF POSSIBLE TRY TO OBSERVE 
THE ERROR WITHOUT THE I/O EQUIPMENT RUNNING. 

6. PROGRAM DISCRIPTION/THEORY OF OPERATION 

6.1 THE EXERCISER PROGRAM IS DESIGNED TO PRODUCE 
A INTERNAL MACHINE ENVIRONMENT AS SIMULAR 

TO NORMAL OPERATING CONDITIONS AS POSSIABLE. 
THE PROGRAM ISSUES A I/O RESET PULSE AND EXECUTES 
THE INSTRUCTION TEST. THE INSTRUCTION TEST USES 
A DATA BUFFER WHOS START AND STOP ADDRESS ARE 
LOADED AS 3080 AND 3680. AT THE END OF EACH 
PASS THE BUFFER START AND STOP PARAMETERS ARE 
ADJUSTED TO THE MAXIMUM MEMORY SIZE. THE 
INSTRUCTIONS WILL BE TESTED WITH THE SYSTEM 
MEMORY SIZE ON SUCESSIVE PASSES. THE PROGRAM 
WILL NOT USE THE LAST 208 LOCATIONS OF THE 
HIGHEST MEMORY MODULE f LOCATION OF LOADERS!. 

6.2 AT THE END OF EACH PASS THE CONSOLE SWITCHS 
ARE READ. IF SWITCHS 0-8 ARE ALL ZERO THE 
PROGRAM WILL RETURN TO CYCLE THE INSTRUCTION 
TEST. IF 9 SWITCH HAS BE;EN SET THE CORRESPOND- 
ING DEVICE WILL BE ACTIVATED* AND THE INTERRUPT 
SYSTEM TURNED ON. AFTER THE SWITCHS HAVE BEEN 
INTERROGATED AND THE MEMORY SIZE DETERMINED THE 
PROGRAM RETURNS TO THE INSTRUCTION TEST FOR 
ANOTHER PASS. 

6.3 THE DEVICES ARE SERVICED VIA THE INTERRUPT 
SYSTEM. THE ~INTA** INSTRUCTION IS USED TO 
DISPATCH TO THE ROUTINE REQUESTING SERVICE. 
IF THE INTA READS BACK A IMPROPER DEVICE CODE 

A HALT WILL OCCUR. WHEN DEVICES 
ARE ACTIVE A HALT OCCURING WITH "ION- LIGHT OFF 
INDICATES A ERROR AT THE INTERRUPT SERVICE LEVEL. 
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6-4 THE REAL TIME CLOCK IS ACTIVATED BY 

SWITCH 4* THE CLOCM IS SET TO INTERRUPT 

AT A liii MERT2 RATE. WHEN A CLOCK INTERRUPT 

occurs the busy and &one flags are tested 
before and after the clocm is restarted. 
6.5 the teletype punch is activated by 

switch 3. the punch will punch several 
inches of leader followed by won 
2ero*even parity* random cmaractors* 
the punching will continue untill " ■ 
switch 3 is depressed* at which tike 

TRAILER fclLL RE PUNCHED. 

6.6 THE TELETYPE READER IS ACTIVATED BY 
SWITCH 2. THE READER WILL ACCEPT TAPE 
PUNCHED EITHER ON THE TELETYPE OR HIGH 
SPEED PUfiCH. THE READER WILL INITIALISE 
ITS RANDOM NUMBER GENERATOR ON A gERO CHAR- 
ACTOR. IT IS NECESSARY TO LOAD THE READER IN. 
THE LEADER SECTION OF THE TAPE* 

6.7 THE HI6H SPEED READER IS ACTIVATED BY SWITCH 
I. THE READER WILL READ AND CHECK TAPES 
PRODUCED ON EITHEgbSKS TELETYP£-#R^RlGH 
SPEED PUNCH. IF THE PUNCH IS ACTIVE 

WHEN TAPES ARE BElWTTtlBA^Me READER WILL IE 
SYNCRONIEED WITH THE PUNCH SUCH THAT THE TAPE 
BEING PUNCHED MAY BE LOADED INTO THE READER. • 
IF THE HIGH SPEED POWCH IS NOT ACTIVE A PRE- 
PUNCHED TAPE WILL BE READ AT HIGH SPEED. *' * 

6.8 THE HIGH SPEED PUNCH IS ACTIVATED BY SWITCH »< 
THE PUNCH WILL PUNCH 256 LINES OF LEADER 
FOLLOWED BY NON lERO^EVEN PARITY* RANDOM 
CHARACTORS* PUNCHING" WILL CONTINUE UNTILL 
SWITCH § IS DEPRESSED* AT WHICH TIME TRAILER 
WILL BE PUNCHED* 

7. RESTRICTIONS/MISC 

7.1 BOTH" THE TELETYPE AND HIGH SPEED READER MUST 

*• BE IN THE LEADER SECTION OF THE TAPE WHEN 

THAY ARE STARTED* 

7.2 SWITCHES ARE READ ONLY AT THE END OF A PASS* 
THEREFOR* THERE IS A DELAY BETWEEN THE SWITCH 
ACTION AND THE DEVICE RESPONSE. 

7.3 DEBUGING IS DIFFICULT IN THE ENVIORMENT 
CREATED BY ACTIVE I/O EQUIPMENT. WHENEVER 

'POSSIABLE USE THE DIAGNOSTIC FOR THE 
PERT1CULAR I/O DEVICE FAILING. 

7.4 PRESSING A TELETYPE KEY MAY CHUSE A ERROR. 
7V5- READING A CMARACTOR OF 2ER0S WILL 

INITIALI1E THE RANDOM NUMBER TO 53 OCTAL. 
THIS IS A IMPORTANT NUMBER IF PAPER TAPE 
READERS ARE FAILING BY READING ALL 1EROSI 
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I INTERRUPT FROM PLT#CDR#DIS 



I KEYBOARD INTERRUPT 

ITTO 

I READER 

I PUNCH 



I KEYBOARD CHAR BUFFER 

I - RANDOM 

$ READER CHAR BUFFER 

I- CHAR COUNTER 

J - RANDOM 

J PUNCH RANDOM 

I OUT OF TAPE FLAG 

ILEADER TRAILER 

J PUNCH CHAR COUNT 

I TAPE LENGTH BETWEEN 

JACTIVE DEVICES 
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IS12E THE. MartOSY 

I PUT IN MEMORY JUMPERS! 

; RESTORE LOC I000#2§00 s 3i 
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STA 0*TYPE 
STA 0#STT 
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STA 0* PUNCH 
STA %$ SIP 
JMP 0/3 

NIOC PTR 
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STA 0* READER 
JMP 0*3 
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§0476 §30§6l LBA 2* READER 

00477 101004 MOV 0*0*S1R 
00500 I 51235 ' WOViR» '2*2#StlR 

§0901 000425 JMP H5R3' 

00502' 006077 JSR tC^RAND 

00503 008062 RRAN 

"00504 024060 LPA 1#MSRCH 

§0505 106414 SUB# 0#1#S2R 

00506 063077 HALT 

00507 iiS377 JNP DISMIS 



1PUNCH ROUTINE CONT» 



I OPERATOR REOUEST 
I READER* START IT. 



J READER INTERRUPT 

I CHAR BUFFER 
1CHAR TO BE USED. 



JEERO DATA OR FIRST CHAR- 
I6EN RAN00M CHAR 

I CHECK DATA 

#CC0)=6OOD CHARACTOR 
ICClJsBAD CHARACTOR.. 



§¥¥ 



§0516 080072 HSRH 
§0511 010061 

00512 101001 

00513 01086! 

00514 101103 
0§5I5 0i0755 
00516- 020C66 
§0517 024061 
08 52? 63£M!7C 
§§581 106400 
08522 1334i4 
§§523 §i§747 

00524 064618 

00525 §§§746 

00526 020073 HSR3I 
§§527 §4§§6fi 

-00530 §Si377 



LDA g^ACTiO^ 
ISE READER 
140V 8*6#5tCP 
ISE DEADER 
MOVL 0*0* SMC 
JMP KSi 
LDA 0* PUNCH 
LDA 1# READER 
LDA £'*RPDIF 
5 S J8 0*1 
AND 1* 2* Sm 
JMP HSR' 
01 AC 1#PTR 
JMP HSR* I 
LDA 0*CI35525 
STA 0'«RRAN 
JMP D1SMIS 



J TAPE LEWGTH 

I DON'T LET READER READ 
I TO RWCH TAPE 

J READ AND STOP 



JRAHD0W SETOP 



00581 


080135 LSRl 


LDA i#T!NEY 


I KEYBOARD 


00532 


101005 


MOV 0'«0*SNR 




00533 


000403 


jnp .*3' 




00534 


860211? 


NIOC'TTI 


> 


00535 


000377 


JUP DISHIS 


1ST0P READER 1 


00536 


064510 


BIAS 1#TT1 


I KEYBOARD INTERRUPT 


00537 


£606$*; 


SKPDN'TTI 




00540 


063418 


5KPBN TT1 




00541 


063077 ' 


MALT 


IFLA6 CHECK 


0054^ 


030134 


LDA fi#TIN 




00543 


010t34 


ise tin 




00544 


101001 ' 


MOV i#i#SKP 




00545 


010134 


I SI TIN' 




§0546 


&m®5* 


LDA §#LS'RB 




00547 


04411 54 


ST A t#LSR8 


• 1 CHAR BUFFER 


00550 


040055 


STA 0»LSRCH 


I THE CHARAGTOR TO USE 


•0551 


131004 


NOV L>*2/SE* 




005^2 


tsiftjgs 


NOV 0#0VSNR 




§§553 


000407 


JMP LSR'l 


JiBRG CKARACTOR 


00354 


SS62 77 


JSR iCXRAND 




00SS5 


0^o®b6 


KRAW 




00556 


§24055 


LDA l#LSRCH 


1 CHECK DATA 


§§557- 


106414 


SUB# B#1#S2R 




005§§ 


§63077 


MALT ' * 


#-C<l>«BAD#CC0>*GOOD 


00561 


•00377 


JNP DISMISS 




00566 


•20073 LSRH 


LDA i#CJ35525 




00563 


040056 


STA 0'»KRAN 




§0S.64 


§00377 


JMP DISMISS 





1 f 



80H63 02 7 400 XPANI3J 


LOA 1 # §8,* 3 


; GENERATE A « BIT 


00 5 66 0208 7 5 


LD A 0,*CI77 


J EVEN PAP IT V KANOOM 


00 567 IJII20 


MOViL 1*2 


1 NUMBER - 


00 570 I 5 If. 20 


HOV2L 2*8 




00 57! ! 3 3000 


ADD i/2 




t>^:>7-2 IS 2 4^02 


LDA 1 .«•■*■ 2 




0£ ""3 S 47308 


ADD 2p I 




00 5 74 IS! 330 


MOVS 0*0 




§0 5 75 I 23 72 5 


AH DBS 1^0*SNR 




00 57 6 00B7 70 


J HP XRAND-H 




0I-I57? 4?480 


ST A \*%%»2 




§0 600 tU 300 


«ovs 0?e 




§0 60 I ! 2 6000 


ADC 1 > i 




00 682 ! 07000 


ADD 0* 1 




20603 1 23404 


AND 1..8*S2K' 




00 60 4 000 77 5 


JMP *-3 




00 6«5 101200 


MOVR '0.*£- 




0060 6 143380 


ADDS 2L*0 


*Ci«)R*EV£N PARITY 


00 60? -5501401 


JMP I j 3 




00610 00 60 7? TYOs 


JSP. SCXRANO 


1 TELETYPE OUTPUT 


00 61 5 000 i 05 


TRAM 




0S6I2 024065 


LDA !>LT 




08 613 I2h2im 


MOVER M 


I LEADER/2 


00614 030 106 


LDA 2* TYPE 




00615 132832 


ADC2# !^2*SZC 




08 616 080 413 


JMP TYOl 




00 6! ? 0200 73 


LDA e CI 3 5525 




00 620 040105 


ST A 0,TfcAN 


1 iMil RANDOM 


006£1 IS 3220 


MOVER J>1 




00 622 034133 


LDA 3^STT 




00623 133405 


AMD U2*SNH 




£-0 62 4 17 Si 5 


MOV 3*3*SNR 




00 625 1508403 


JMP .+3 




0068 6 6021 I 


NIOC TTO 


JSKUT DOWN 


00 62? 00037? 


JHP D ISM IS 




00 630 t.02 400 


sua 0*0 




00 631 010106 TY01* 


135 TYPE 




00632 101001 


MOV* 8*0*SKP 




00 633 01 8! 06 


132 TYPE 




§0 634 6341 I 


SKPBM TTO 




00 63$ 6361 1 


SKPDN TTO 




88 S3 6 630 7 7 


HALT 


J FLAG CHECK 


00637 061 i 3 1 


DO A3 0*TTO 




53 64«5 63t) I 


5KPB2 TTO 




00 64! 9 63111 


SKPD2 TTO 




00 642 630 7? 


HALT 


IPLAG CHECK. 


00643 000377 


JMP DISH IS 




08644 63^14 CLOCKS 


SKPBN PTC 


1 CLOCK INTERRUPT 


BBt,4b :-.i;3&M 


SKPQN RTC 




012 64 6 63077 


HALT 




0t»64 7 G601 1 4 


NIOS HTC 




00 650 0003 77 


JMP DISH 13 





"?-#*?' 



§0651 006077 .PUNl 


JSR iCWAND 


00652 00014! "" 


• FRAP 


00653 024065 


LDA 1#LT 


§0654 030142 


LDA 2#. PUNCH 


08655 132032 


ADC2# l'#2#SZC 


§0656 §00423 


JMP .PUNT 


§0657 020073 


LDA i#C135525 


§0660 04014! 


STA 0*«PRAN 


00661 #24075 


LDA l#C!77 


§0662 §34137 


LPA 3#.STP 


00663 133405 


AND t#2#SNR 


00664 175005 


HOV 3#3#SNR 


00665 §00413 


JMP .PUNX 


00666 060253 


NIOC .FTP 


§0667 063452 


SKPBN**.PTR. 


00670 §63752 


SKPDi VPTR 


00671 §00377 


jmp dismis 


00672 02007® 


LDA 0#ACTION 


00673 101300 


mv$ a#0 


00674 101200 


MOVR 0*0 


00675 l§i2§2 


movr 0#0#S2C 


00676 060152 


NIOS •PTR 


00677 000377 


JMP DISMIS 


00700 108400 .PUNXI 


SOB i#0 


00701 010142 •PUNlt 


IS2 *PWCH 


00702 101001 


MOV 0#§#SXP 


00703 010142 


IS1 .PUNCH 


00704 063453 


SKPBH *PTP 


§0705 063653 


StCPDN ".PTP 


00706 063077 


HALT 


00707 061 153 


DOAS 0#.PTP 


00710 063553 


SKPBi ".PTP 


00711 063753 


SKPD2 .FTP 


00712 §63077 


HALT '* 


00713 020142 


LDA 0# .PUNCH 


00714 024143 


LDA 1 •'•READER 


00715 030070 


LDA 2»RPD1F 


00716 106400 


SUB 0*1 


00717 1334§4 


AND l'#2»S2R 


§0720 §§§377 


JMP DISMISS 


00721 §63452 


SKPBN .PTR 


00722 063752 


SXPDI VPTR 


00723 §08377 


JMP PISMIS 


§0724 820072 


LDA §#ACT10N 


00725 101100 


WOVL B#§ 


§0726 101100 


MOVL i#0 


00727 101100 


MOVL 0*0 


00730 101100 


MOVL 0*0 


00731 101100 


MOVL 0*0 


00732 101100 


MOVL 0*0 


00733 101112 


MOVLf 0#§*S2C 


00734 060152 


NIOS -PTR" 


00735 000377 


jmp DISMISS 



JPWCH INTERRUPT 
ILEADER/TRAILER 



ISTOP PUNCH1N6 



J RESTART READER 

I PUNCH LEADER/TRAILER 

ICHARACTOR COUNTER 

JPUNGH FLAG CHECK 



I WHEN PUNCH IN6 AND 

JREADIN6 IT MAY 

I BE NECESSARY TO 

I RESTART THE READER 

I EXIT INTERRUPT 



I RESTART READER 



ft* t 



§#736 064562 .HSRl 
§0737 020144 

00740 044144 

00741 040145 

00742 030143 

00743 101004 

00744 151235 

00745 000425 

00746 006077 

00747 000140 
00750 §24145 
§0751 106414 

00752 063077 

00753 000377 

00754 020072 .HSRli 

00755 010143 

00756 101001 

00757 010143 

00760 101103 

00761 000755 

00762 020142 

00763 024143 

00764 030070 

00765 106400 

00766 133404 

00767 000747 

00770 064652 

00771 000746 
§0772 020073 .HSR3I 

00773 040140 

00774 000377 



00775 

00776 

00777 

01000 

01001 

01002 

01003 

01004 

01005 

01006 

01007 

01010 

01011 

01012 

01013 

«1014 

01015 

01016 

01017 

01020 

01021 



020146 < 

101005 

000403 

068250 

000377 

064550 

063650 

063450 

063077 

030147 

010147 

101001 

010147 

020150 

044150 

040151 

151004 

101005 

000412 

006077 

000152 



LSRt 



D1AS l#*PTR 
LDA 0#.HSRB 
ST A IVVHSRB 
STA 0#VHSRCH 
LDA 2# .'READER 
mV 0#0#SER 
MOVZR# 2#2#5NR 
JMP .HSR'3 
JSR iCXRAND 

.RRAN 

LDA 1#.HSRCH 

SUB# 0Vi#SER 

HALT 

JMP DISMIS 

LDA 0#ACTION 
1SE .READER 
HOV 0#0*SKP 
1SZ • READER 
HOVL 0#0#SNC 
JHP .HSR' 
LDA l#.P^CH 
LDA 1#VR£ADER 
LDA 2»RPD1F 
SUB 0*1 
AND t#2#SZR 
JMP .HSR 
DIAC"l#«PTR 
JMP .HSK*1 
LDA 0#C135525 
STA 0#.RRAN 
j M p DISH IS 

LDA 0#.TINEY 
140V 0*0#SNR 

JHP .+3 
NIOC '.TTI 
JHP DISMIS 
DIAS 1#.TT1 
SKPDN .TTI 
SKPBM VTTI 
HALT 

LDA 2*. TIN 
ISE .TIN 
MOV 0#§#SKP 
IS2 -TIN 
LDA i#.LSRB 
STA !*»LSR8 
STA 0#.LSRCH 
NOV 2#2#SZR 
MOV 0*0#SNR 
JMP .LSR1 
JSR iCXRAND 
.KRAN 



j SECOND READER INTERRUPT 



I FIRST CHAR OR 2ER0 DATA 
I GEN RANDOM CHAR 



1 CHECK DATA 
I READER/PUNCH 
I SECOND" DEVICES. 
ICCD-BAD 



C€0>*6OOD 



IDONT LET READER READ TO MUCH 



1 SECOND KEYBOARD 



I STOP SECOND READER 



I CHAR BUFFER 

I THE CHARACTOR TO USE 



f t f 



01022 


§24151 


LDA l^.LSRCH 


01023 


106414 


sub# 0pi*sm 


01024 


063077 


■HALT 


01025 


000377 


JMP DiSMIS 


01026 


000000 





01027 


000000 





§1830 


000000 





81031 


020073 .LSR1I 


LDA 0^0135525 


01032 


040152 ' 


STA 8**KRAN 


01033 


000377 


JMP DISMIS 


01034 


00 60 7 7 *TY0I 


JSR ©CXRANO 


01035 


000154 " 


.IRAN 


01036 


024065 


LDA 1#LT 


0103? 


125220 


MOVER 1*1 


01040 


030153 


LDA 2#»TYP£ 


01041 


132032 


ADC2# 1*2#S2C 


01042 


000413 


JMP *TYOl 


01043 


020073 


LDA 0#C135525 


01044 


040154 


STA 0#.TRAN 


01045 


125220 


MOVER 1*1 


01046 


034155 


LDA 3#»STT 


01047 


13340 5 


AND 1#2*SNR 


01050 


175005 


MOV 3*3#SNR 


01051 


000403 


JMP .+3 


01052 


602 51 


NIOC .TTO 


01053 


000377 


JMP DISMIS 


01054 


102400 


SUB 0*0 


01055 


010153 .TYOls 


IS2 .TYPE 


01056 


101001 * 


MOV 0*0#8KP 


01057 


010153 


ISi. -TYPE 


01060 


063451 


SKPBN -TTO 


01061 


063651 


SKPDN .TTO 


01062 


063077 


HALT 


01063 


061151 


DOAS 0#»TTO 


01064 


063551 


SKPBE .TTO 


01065 


063751 


SKPD2 *TTO 


01066 


063077 


HALT 


01067 


000377 

• EOT 


JMP DISMIS 



I SECOND TELETYPE 
ICC0)=GOOD#CC1 )=BAD 



1 SECOND TTY COUTPUT> 



I IMIT RANDOM 



I SHUT DOWN 
1LEADER/TRAILER 



1FLAG CHECK 



I FLAG CHECK 



IA TEST OF SfA*LDA 

fLOAD CC1) FROH BUFFER, STORE CC1> IN BUFFER+L THIS 

J PROCEEDURE 

I WILL FILL THE BUFFER WITH THE VALUE OF THE FIRST WORD 

J IN THE 

IBUFFER. THE CCt> IS TESTED WHEN THE BUFFER HAS BEEN 

I FILLED. 

I BECAUSE THE LAST WORD IN THE BUFFER IS BASED ON THE 

JPREV1GUS 

J WORD ITS CORRECTNESS INSURES THAT THE ENTIRE BUFFER IS 

JCORRECT. ^^ 

I IF THE CCI) IS IN ERROR CNOT ZERO) EXAMINE THE BUFFER 



01070 030114 STAil 
81071 034115 
01072 102400 
01873 041000 



§1074 
01075 
01076 
§1077 
01100 
0110! 
01102 
01103 
01104 



025000 

045001 

151400 

156014 

000774 

125014 

063077 

101014 

063077 



STA01I 



01105 030114 STA02S 

01106 034115 

01107 102000 
0H10 041000 



IFIRST LOCATION IN BUFFER 

J LAST LOCATION IN BUFFER 

1CC0>=0 

I VALUE OF FIRST BUFFER WORD 

1WORD FROM BUFFER 
I PUT INTO BUFFER*! 
J WOVE TO NEXT BUFFER LOC 
I TEST FOR END OF BUFFER 
1MORE WORDS TO OUT PUT 
I FULL BUFFI CHECK CC1>*0 
I EXAMINE BUFFER FOR ERRORS 
JCC0> WAS CLEARED AT STA0*2 
JNOT OTHERWISE USED! 



Iwl" TES? IS A 1D^TICAL TO THE PREVIOUS TEST EXCEPT THE 

i |p I pc T 

J WORD OF THE BUFFER IS SET TO ALL ONES CI 777775. 

1BUFF CONTAINS FIRST BUFFER LOG 

I THE LAST LOCATION IN BUFFER 

iC0>-177777 

I VALUE OF FIRST BUFFER WORD 



LDA 2 


#BUFF 


LDA 3 


#FIN 


SUB 


#0 


STA 


*0#2 


LDA 1 


#0*2 


STA 1 


#1*2 


INC 2 


#2" 


ADC# 


2*3#SZR 


JMP . 


-4 


MOV# 


T#i#S2R 


HALT 




WOV# 


0*0*SER 


HALT 





01111 

01112 

§iit3 

01114 
01115 



025000 
045001 
151400 

156014 
000774 



STA03I 



01116 124014 

01117 063077 

01120 100014 

01121 0630T7 



LDA 2*BUFF 
LDA 3* FIN 
ADC 0*0 
STA 0*0*2 

LDA 1*0*2 
STA i*i#2 
INC 2*2 
ADC# 2*3*S£R 

JMP •»4 

COM# 1*1*5ZR 

HALT 

COM# 0*0* S2R 

HALT 



I WORD FROM BUFFER 

I PUT INTO BUFFER* I 

I ADVANCE TO NEXT LOCATION 

I TEST FOR END OF BUFFER 

J WORE TO FILL 

J CHECK CC1> FOR 177777* 
I EXAMINE CCBUFFER> FOR ERROR 
1C<0> W&S MODIFIED DURING 
JTHIS TEST! 1 



ft f 



IFILL AW CHECK BUFFER. A BUFFER OF ALTERNATING BITS 



01122 
01 123 

01124 
01125 
01126 

01127 
01130 
01131 
01132 
01133 

01134 
01135 

§1136 
01137 
01140 
01141 
§ 1 I 42 
01143 
01144 



030114 

0341 15 
020420 
104000 
045000 
041001 
021000 
151400 
156015 
000774 

021000 
025377 
123020 
100014 
063077 
101012 
063077 
101011 
052525 



STA04I 



STAiSt 



STA06I 



LDA 
LDA 
LDA 
COM 
STA 
STA 
LDA 
INC 
ADC# 



2#BUFF 
3#FIN 
0*CS2S25 
0*1 

1*8*2 
0*1*2 
0*0*2 

2*2* 
2*3#SNR 



JHP .-4 



LDA 
LDA 



0,0*2 
1,-1*2 



ADD£ 
COH# 
HALT 
HOV# 
HALT 
MOV# 



"IV i" 
0#0*SZR 

0»0*S2C 



0»0*SKP 



I FIRST 
1LAST 



LOCATION 
LOCATION 



OF 
OF 



THE 
THE 



BUFFER 
BUFFER 



I BUFFER = 1252 52 

5 BUFFER = 052525 

I THIS PAIR OF WORDS 

IIS MOVED THROUGH THE 

I BUFFER 



I GET BUFFER'S LAST AND 
I LAST- 1 WORSDS 
JCC0> SHOULD* 177777 

I BUFFER SHOULD CONTAIN 
# ALTERNATING WORDS 
I EXAMINE BUFFER FOR ERRORS 
J HOW DID CARRY CHANGE? 
I SKIP OVER CONSTANT 



C525251 052525 



SHAKE SURE THAT ALL LOCATIONS IN THE BUFFER EXIST. 
I STORE A ADDRESS PATTERN CEACH LOCATION CONTAINS ITS 

JADDRESSI* M , ^^.^ 

1IF STA WERE ATTEMPTING TO STORE A 2400 IN LOCATION 

1 2400 

I BUT INSTEAD STORED IN 2000* THE CONTENTS OF 2000 WOULD 
JCONTAIN 2400. ONE SHOULD SUSPECT HA BIT 7 OR OTHER 
jMEftORY ADDRESS DECODING* 



01145 102400 STA10I 

01146 034114 

01147 024115 



01 1 50 

01151 

01152 

01153 

01154 

01155 

01156 

01157 
01160 

01161 
01162 
01163 
01164 
01165 



55400 
031400 
156414 
063077 
175400 
136414 
000772 

034114 
031400 
156414 
063077 
175400 
136414 
000773 



STA1 11 



STA12I 



01166 101014 STA13I 

01167 063077 



SUB 0*0 

LDA 3*BUFF 
LDA l'*FIN 

STA 3*0*3 
LDA 2*0*3 
SUB# 2*3*S2R 
HALT 
INC 3*3 
SUB# 1*3*S2R 
J¥IP STA 11 

LDA 3* BUFF 
LDA 2*0*3 * 
SUB# 2*"3*S2R 
HALT " •' 
INC 3*3 
SUB# "1*3*SZR 
JHP STA 12*1 

MOV# 0*0*S2R 
HALT 



ICC0> NOT USED THIS TEST 
I FIRST LOCATION OF BUFFER 

I LAST LOCATION OF BUFFER 

J STORE THE ADDRESS AT ADDRESS 
ILOAD CC2> WITH DATA JUST 
ISTORED. CC3>=DATA SENT* 
JC<3>»A0DRESS*CC2>*RECEIVED 
I INC TO NEXT ADDR 
1TEST FOR END OF BUFF 



ICORE SHOULD BE FILLED WITH 
I ADDRESS PATTERN • GET WORD 
ICC2> SHOULD EQUAL CC3> 

I LOOK FOR PATTERN OF ERRORS 
I GO TO NEXT ADDRESS 
I TEST FOR END OF BUFFER 
I MORE TO 60 

I CHANGE TO CJMP STAi0> FOR LOOP 
#CC0> NOT USED THIS TEST! 



ft t 



ITH1S IS A ADDRESS TEST IN WHICH EACH LOCATION IN THE 

JBURFER 

JCONTAINS THE COMPLEMENT OF ITS ADDRESS. IF A FAILURE 

fOCCDRES 

J EXAMINE THE BUFFER AND TRY TO FIND A PATTERN- OF ERROs? 

JLDA AND STA HAVE PREVIOUSLY WORKED WITH A SIMULAR 

J PATTERN. 



Bit 70 834114 STA20I 
01171 024115 



01172 
01173 
01174 
81175 
01176 
01177 
01200 
01201 
01202 



01203 
01204 
01205 
01206 
01207 
00210 
01211 
01212 



160005 

063077 
041400 
031400 
142414 
063077 
175400 
136414 
000770 



034114 
031400 
140000 
116414 
063077 
175400 
136414 
000 772 



STA21I 



STA22* 



LDA 


3* BUFF 


LPA 


1*F1N 


COM 


3*0*SNR 


HALT 




STA 


0*0*3 


LDA 


2*0*3 


SUBI 


s 2*0»S2R 


HALT 




INC 


3*3 


SUB# 


' 1*3*S2R 


JMP 


STA21 


LDA 


3* BUFF 


LDA 


2*0*3 


COM 


2*0 


SUB# 0*3*S2R 


HALT 


INC 


3*3 


SUB# 1*3*SER 


JMP 


STA22+1 



01213 101010 



HOV# 0*0 



ICC3>=FIRST BUFFER LOCATION 
JC€I»=LAST BUFFER LOCATION 

I THE CONTENTS OF 3 SHOULD 
I ALL WAYS PRODUCE HOT ZERO 
I STORE LOGICAL COMPLEMENT 
I OF ADDRESS IN ADDRESS 
*C€2> SHOULD BE SAME AS 
ICC0) WHICH WAS STORED. 
J INC TO NEST ADDRESS 
I TEST FOR END OF BUFFER 
INOT YET END OF BUFFER 



1RESET CC3> TO FIRST LOCATION 
UN THE BUFFER. WORD FROM 
I BUFFER SHOULD BE COMP OF 
IADDRESS IN 3* CC2)«BUFFER WD 
JC<0> s ITS COMP. C<3>-ADDRESS 
I INCREMENT TO NEST ADDRESS 
I TEST FOR END OF BUFFER 
I MORE WORDS TO CHECK 

I REPLACE WITH CJMP STA20 > TO 
J LOOP 



Wf 



01214 

01215 
01216 
01217 
01220 
01221 
01222 
01223 



JA TEST Of JSR 

J THIS PROGRAM WILL EXECUTE A JSR INSTRUCTION TO EVERY - - 

i LOCATION 

UN THE BUFFER. EACH LOCATION IN THE BUFFER CONTAINS 

JAtJSR 1#3> 

I INSTRUCTION. THE JSR RETURN FROM THE BUFFER WILL BE TO 

J THE 

I CALLING CJSR TO BUFFER) *2. THE RETURN FROM THE BUFFER 

IALSO STORE THE PC CPR06RAM COUNTER) OF THE BUFFER 

J INSTRUCT ION** 1 

»IH CC3>. C<2) POINTS TO THE BUFFER LOCATION TO BE 

I EXECUTED* 

JC<3>-1 INDICATES WHICH LOCATION IN THE BUFFER WAS 

I EXECUTED. THE 

ICC3) SHOULD BE ONE GREATER THAN THE BUFFER POINTER IN 

ICC2). 



102S20 
034114 
030421 
024115 
051400 
175400 
166414 
000775 



JSR10S 



01224 030114 JSRllt 

01225 005000 

01226 063077 

01227 156014 



01230 
01231 
01232 
01233 

01234 
01235 
01236 



063077 
156014 
102400 
113000 

146414 
000770 
101011 



SUBZL 0*0 
LDA 3* BUFF 
LDA 2*CJSR10 
LDA 1*FIN 
STA 2'* 0*3 
INC 3*3' 
SUB# 3*1*SZR 
JHP .-3 

LDA 2* BUFF 

JSR 0*2 

HALT 

ADC# 2»3*S2R 

HALT 

ADC# 2*3#S2R 
SUB 0*0 
ADD 0*2 
SUB# 2»-l*S2R 
JMP JSR11+1 
WOV# 0#0*SKP 



I LOOP ON ERR SWITCH 
JC<3>=PIRST BUFFER LOCATION 
I CONSTANT CJSR 1*3) 
JC<1>«FINAL BUFFER LOCATION 
I FILL THE BUFFER 
I WITH JSR INSTRUCTIONS 
1TEST FOR END OF THE BUFFER 
IHORE WORDS TO STORE 

ICC2>=FIRST BUFFER LOCATION 

*GO TO THE BUFFER! CC3>* 

I RETURN ADDR. FAIL TO PC XFER 

ICHECK NEW C<3> FROM JSR IN 

1BUFF 

1CC3>SH0ULD=C<2>+1. WENT WRONG 



INEXT BUFF LOCTEST FOR END 
I MORE LOCATIONS IN BUFF 
I SKIP OVER CONSTANTS 



01237 005401 CJSR10* JSR 1*3 



;ATESTOFJMP 

THIS PROGRAM WILL EXECUTE A JMP TO EVERY LOCATION IN 

THE BUFFER, 

THE BUFFER CONTAINS A (JSR 1,3) INSTRUCTION IN EACH 

LOCATION 

THE VALUE IN C(3) IS SET SUCH THAT THE JSR M THE 

BUFFER WILL 

RETURN TO THE MAW PROGRAM. THE PROGRAM THEN CtffiCKS 

THE PC 

PROGRAM COUNTER) STORED BY THE BUFFERS* JSR 

INSTRUCTION. THIS 

;PC SHOULD BE ONE GREATER THAN THE LOCATION JUMPED TO. 



01240 126520 JMP10: 

01241 020115 

01242 030114 

01243 034413 

01244 001000 

01245 063077 

01246 156014 JMP11: 

01247 063077 

01250 156014 

01251 126400 

01252 133000 

01253 142414 

01254 000767 

01255 101011 

01256 001245 CJMP11; 



SUBZL 1, 1 
LDA 0, FIN 
LDA 2, BUFF 
LDA 3»CJMP11 
JMP 0, 2 
HALT 

ADC#2,3»SZR 
HALT 

ADC# 2,3»SZR 
SUB 1, 1 
ADD 1,2 
SUB# 2,0»SZR 
JMP JMPKM-3 
MOV#0»0,SKP 
JMP11-1 



LOOP ON ERR SWIT 
FINAL ADDRESS OF BUFFER 
FIRST ADDRESS OF BUFFER 
C(3)=A RETURN TO THE PROG 
GO TO A LOCATION EN BUFFER 
NO JMP? INDEX+1 IN BUFFER? 
CHECK PC STORED BY BUFFER JS: 
C(2HMP ADDRESS, C(3)=JSR PC 



,TEST FOR END OF THE BUFFER 
NOT YET END OF BUFFER 
SKIP OVER THE CONSTANT 

CONSTANT 



.EOT 



: s. T?.>T Ot POSITIVE: DISPLACEMENT US?m ? HE ~LOA % » 

JTr:r SUFFER IS FILLED «17H A ADDRESS PATTERN 

i c c c address > -address > * 

f€ao POSITS TO A L0CSTIOM IN THE BUFFER* A n.BA 90 
i INSTRUCTION . ,. . 

IWJTH A POSITIVE DISPLACEMENT THE** fWFBIJIWCeS TMg 
# BUFFER VIA 

IINOEX REGISTER 3# THE EFFECTIVE ADDRESS IS THE SW QF 
?THE INDEX 

^REGISTER VALUE A^D THE SXSFLACENEST* C<^>»r^?sCTlvr 
J ADDRESS 

sOSTA2MED*CCi>*CORRECT EFFECTIVE ADDR£3S*CC3)aIND€XIN0 

i VALUE ' ' 

iC<P0SX2>«FAIL!NS INSTRlfCTION — DISPLACBMENT IN BITS 

18-15 



SI 257 0341 1 a pOSKl 


LPA 3#ByPF 


il86a 084115 


LPA IV FIN 


§1261 #5540i 


STA 3V®*3 


.01362 175480 


INC 3V3" 


§1263 136414 


SUBi 1*3#S£S 


§1264 600775 


jup posx+r 


• J 265 03S4S6 


L©A RjCLDAPX 


01866 058411 


STA 2VP0SX£ 


§1261 9B91Z9 POSXif 


LDA 8^C3 


• 12738 €244$ ? 


LSA I#?0S1£ 


§1871 - 197800 


ADO 0V I ' 


if £72 #444455 


STA 1VPOSXR 


•1273 §g§4£l 


LDA 8VP0SFIN 


i!S74 i$603£ 


A&C2*' 0#1*SSC 


§fg75 Ot42* 


JNP PGSH&' 


§fjg7& 034214 


L©A 3#I«FF 


§1277 §§§§§§ P0SX2I 





gl3§§ §24777 


LiA l*#-t 


01301 0g«i2g 


IDA 0VC377 


g!3iS 107400 


AW© 0V1 ' ' 


fl3f 3 l«7900 


ASD 3V1 


01304 146414 


0W1# g#S*SII 


•138S #6387? 


MALT * " 


SI3S6 0£01U 


L£A S#FIN800 


§f3§T S754§g 


INC 3V3 


2 330 116414 


SUSs? §*3;>S£R 


• 131 I 000766 


JlfP POSXR 


8*312 0SS755 


J§#f P0SX1 



I FIRST BUFFER LOCATION 

1LAST SUFFER LOCATION. 

JSTO^S A ADDRESS -PATTERN 

*IN THE BUFFER 

ICC BUFFER) "ADDRESS OF BUFF 

JEXAMPLE*'CC3£15)k3&!5 

i CONSTANT <LDA 2*0*3* INST 

* INITIALISE THE INSTRUCTION 

S km 3 TO THE iW»EX 

JD2SPL&CSNENT*- 

JMEMT OF THE tm 1MSTMJCTION 



JE^P TEST FOR DISPLACEMENT 

160 TO MEXT TEST 

J IF THIS TEST FAILS PLAGE 

J<JNP *-!> AFTSS THIS 

if INSTRUCTION 

*€CPQ5X8)*LDA 2*N*3 

i INSTRUCTION DISPLACEMENT 

JTO CCII* THIS DISPLACEMENT 

J + INDEX VALUE«EFFECT2VE ADDRESS 

*CO>«£FFEC?IVE ADDRESS; C<C?« 

1 110 80 OBTAINED CCS J NRDNS " " '"* 

ithis displacement will is 

# TRIED KITH OTHER LOCATIONS 

UN THE ByFFEl 

JHEXT DISPLACCNENT 



01313 §314§§ CLDAPX2 LEA 8--S*3 

013U «3I57? F0SF1P? LDA 8*177*3 
§1315 101010 FOSNDt MOV# i*§'* 



I CONSTANT FIRST PlSPLACfiWglfT 

lee^STAMT Ft HAL M 

i REPLACE «ITH. JNP TO LCJOP 



t f f 



I A TEST OF NEGATIVE DISPLACEMENT USING #t LOA M 
I THE BUFFER IS FILLED WITH A ADDRESS PATTERN 
1 CCCADDRESS>=ADDRESS)« A S, LDA M INSTRUCTION 
I WITH A NEGATIVE DISPLACEMENT THEN REFFERANCES 
JTHE BUFFER VIA INDEX REGISTER 2. THE EFFECTIVE 
I ADDRESS IS THE VALUE OF THE INDEX REGISTER 
JMINUS THE DISPLACEMENT VALUE- CC3 > =EFFECT I VE 
IADDRESS GBTAIN£D#C<1 >=CORECT "EFFECTIVE ADDRESS* 
JCC2> = INDEXING VAL»JE# CCNEGX2 >=FA ILING INSTRUCTION 
JDISPLACEMENT IN BITS 8-15. 



01316 


0341 14 


NEGXS 


LDA 3,»BUFF 


013T7 


024115 




LDA UFIN 


01320 


055400 




ST A 3*0#3 


8 I 32 1 


1 75400 




INC 3#3 


01322 


136414 




SUB# l#3#Si:R 


01323 


000775 




JMP NEGX+2 


01324 


030431 




LDA 2*N£6FIN 


01325 


050412 




STA 2#N£6X2 


01326 


020120 


NEGXI 1 


LDA 0*C3 


01327 


024410 




LDA 1#NEGX2 


01330 


1064^0 




SUB 0* I 


01331 


044406 




STA UNEGX2 


01332 


020424 




LDA 0*NEGXX 


01333 


106033 




ADCE# 0* 1#SNC 


01334 


000423 




JMP NEGND 


01335 


000401 




JMP NEGX2-1 


01336 


0301 17 




LDA 2#BUF200 


01337 


000000 


NEGX2J 





01340 


02477? 




LDA l#.-i 


01341 


020122 




LDA 0#C377 


01342 


107400 




AND 0* I 


01343 


100000 




COM 0,0 


01344 


107000 




ADD 0'« 1 


01345 


147000 




ADD 2,1 


01346 


136414 




SUB# 1#3#S2R 


01347 


063077 




HALT 


01350 


020115 




LDA 0#FIN 


01351 


151400 




INC 2#2 


01352 


112414 




SUB# 0*2#S2R 


01353 


000 764 




JMP NEGX2 


01354 


000752 




JMP NEGXt 


01355 


035377 


NEGFINs 


LDA 3*-b2 


01356 


035200 


NEGXX? 


LDA 3*-2&0#2 


01357 


101010 


NEGNDt 


MOV# 0*0 



I FIRST BUFFER LOCATION 
I FINAL BUFFER LOCATION 
J FILL THE BUFFER WITH A 
IADDRESS PATTERN* FOR 
JEXAMPLES CC3417>=3417 
IC(4150)=4150 
J INITIALISE THE LDA INST 
ITO CLDA 3*377,2) 



i SUBTRACT (3> 
JDISPLACEMENT 



FROM THE LDA'S 



IPUT IT BACK IN CORE 
ITEST FOR A POSITIVE 
i DISPLACEMENT 
I END. GO TO NEXT TEST 



i FIRST BUFFER LOCATIQN+200 
1BECOMES1 LDA 3*-N*2 !! 
J GET DISPLACEMENT BITS 
J MASK THE INSTRUCTION PART 



IC<1)*THE EFFECTIVE ADDRESS 

ICC2>=THE INDEXING VALUE 

JCC3)=TH£ ADDRESS OBTAINED 

I INST AT NEGX2 FAILED 

1USE THIS DISPLACEMENT 

I WITH OTHER LOCATIONS IN THE 

i BUFFER 

INOT BUFFER END 

1END#TRY NEW DISPLACEMENT 



I CONSTANT I DISPLACEMENT- 1 

J CONSTANT: DISPLACEMENT 'OF -177 

I REPLACE WITH JMP TO LOOP TEST 



;A TEST OF POSITIVE DISPLACEMENT USING THE "JMP". 
THE BUFFER IS FILLED WITH (JSR 0. 3) INSTRUCTIONS 

THUS WHEN A JSR IN THE BUFFER IS EXECUTED C(3) WILL 

BE SET TO THE BUFFER LOCATION*!, A "JMP" INSTRUCTION 
WITH A POSITIVE DISPLACEMENT GOES TO THE BUFFER VIA 
INDEX REGISTER 2. THE JSR INSTRUCTION IN THE BUFFER 
WILL RETURN TO THE PROGRAM SAVING ITS LOCATION +1 IN 
C(3). THE EFFECTIVE ADDRESS OF THE "JMP" IS COMPARED 
WITH C(3). C(3)-l=LO^T10NJDivi?ED TO. C;2}=INDEX 
VALUE, C(1)=EFFECTIVE ADDRESS, C{POSJ3>=FAILING WSTRUC 
TION, DISPLACEMENT IN BITS 8-15. 



01360 034114 


POSJ: 


LDA 3, BUFF 


01361 024115 




LDA 1, FIN 


01362 030435 




LDA 2, POSJX 


01363 C514CQ 




STA 2, 0, 3 


01364 175400 




INC 3,3 


01365 166414 




SUB#3,1.SZR 


01366 000774 




JMP POSJ+2 


01367 020427 




LDA 0, POSJ Z 


01370 040416 




STA0»POSJ3 


01371 020121 


POSJ1: 


LDA 0, C5 


01372 024414 




LDA l»POSJ3 


01373 107000 




ADD 0, 1 


01374 044412 




STA UPOSJ3 


01375 020423 




LDA 0, POSJF 


01376 106032 




ADCE#0, 1,SZC 


01377 000423 




JMP POSJND 


01400 030114 


POSJ2: 


LDA 2 $ BUFF 


01401 020116 




LDA 0, FIN200 


01402 151400 




INC 2, 2 


01403 142415 




SUB#2»0„SNR 


01404 000765 




JMP POSJ1 


01405 034414 




LDA 3, POSJY 


01406 000000 


POSJ3: 





01407 024777 




LDA 1. . -1 


01410 020122 




LDA 0, C377 


01411 107400 




AND 0, 1 


01412 147030 




ADD 2, 1 


01413 136014 




ADC# 1 ? 3»SZR 


01414 063077 




HALT 


01415 000764 




JMP POSJ2+1 


01416 001000 


POSJE 


JMP 0, 2 


01417 005400 


POSJX 


JSR 0, 3 


01420 001177 


POSJF 


JMP 177, 2 


01421 001407 


POSJY 


POSJ3+1 


01422 101010 


POSJN] 


D: MOV# 0, 



;FIRST LOCATION IN BUFFER 
;FINAL LOCATION IN BUFFER 
;FILL THE BUFFER WITH 0SR 0, 3) 

INSTRUCTIONS 

;TEST FOR END OF BUFFER 
;MORE LOCATIONS TO FILL 
;INITIALIZE THE JUMP 
;WITH POSITIVE DISPLACEMENT 

;INCREASE POSITIVE DISPLACE 
;BY FIVE 

;NEW "JMP" INSTRUCTION 

;ANY MORE 4- DISPLACEMENTS 

;TOGO 

;NO GO TO NEXT TEST 

;FIRST LOCATION IN BUFFER 
; FINAL LOCATION IN BUFFER 
;POINT TO NEXT BUFFER 
;LOCATION. IS IT THE LAST? 
;YES TRY NEW DISPLACEMENT 
;SETUP C(3) FOR BUFFER RET 
;"THE" JMP INSTRUCTION 

; CALCULATE THE EFFECTIVE 
;ADDRESS OF THIS JUMP 
;C<INDEX)fDISPLACEMENT 

;C(1)=EFFECTIVE ADDRESS, C(3) 
;JSR PC, C(2>=INDEX VALUE 
;GO AGAIN AT NEXT LOC 

CONSTANTS 



; REPLACE WITH JMP TO LOOP 



;A TEST OF NEGATIVE DISPLACEMENT USMG " JSR M 

THE BUFFER IS FILLED WITH 0SR 0, 3) INSTRUCTIONS. 
THE BUFFER IS ENTERED WITH A JSR VIA C(3) WITH A 
NEGATIVE DISPLACEMENT IN BITS 8-15. EFFECTIVE 
ADDRESS CALCULATION SHOULD SUBTRACT THE DIS- 
PLACEMENT FROM THE VALUE IN INDEX REGISTER 3. 
THE JSR m THE BUFFER WILL RETURN TO THE PROGRAM 
SAVING ITS LOCATION +1 IN C<3). COMPARISON OF 
CALCULATED EFFECTIVE ADDRESS AND C(3) DETERMINE 
IF THE BUFFER WAS ENTERED CORRECTLY. 



01423 030432 NEGJ; 


LDA2»NEGfY 


01424 050415 


STA 2.NEGJ3 


01425 020120 NEGJ1: 


LDA0,C3 


01426 024413 


LDA 1.NEGJ3 


01427 106400 


SUB 0, 1 


01430 044411 


STA 1.NEGJ3 


01431 025423 


LDA 0, NEGJX 


01432 106052 


ADCO#0,1,SZC 


01433 000423 


JMP NEGJD 


01434 030117 NEGJ2; 


LDA2>BUF20O 


01435 020115 


LDA 0, FIN 


01436 151440 


INCO 2, 2 


01437 142435 


SUBZ#2,0,SNR 


01440 000765 


JMP NEGJ1 


01441 000000 NEGJ3: 





01442 024777 


LDA 1,. -1 


01443 020122 


LDA 0, C377 


01444 107403 


AND0, l.SNC 


01445 063G77 


HALT 


01446 100000 


COM 0, 


01447 107000 


ADD 0, 1 


01450 147000 


ADD 2,1 


01451 136014 


ADC# 1,3,SZR 


01452 063077 


HALT 


01453 000762 


JMP NEGJ2+1 


01454 005200 NEGJX; 


JSR -200, 2 


01455 005377 NEGJY: 


JSR -1,2 


01456 101010 NEGJD: 


MOV# 0, 



C(2)=CONSTANT (JSR -1,2) 
STORE "THE" JSR 

DECREMENT THE VALUE OF 
THE DISPLACEMENT BY 3. 
EACH DISPLACEMENT IS TEST- 
ED WITH THE BUFFER 

DISPLACEMENT END TEST 
GO TO NEXT TEST 

FIRST ADDRESS+200 IN BUFFER 
THIS ROUTINE SETS CARRY! ! 1 
ITS TESTED LATER! INC BUFF 
;ADDRESS AND TEST FOR END 

END, GET NEW "JSR" 

GO TO THE BUFFER HERE! 
OBTAIN THE EFFECTIVE 
ADDRESS IN C(l) 
THE CARRY SHOULD NOT HAVE 

CHANGED! SEE ABOVE 



;CHECK EFFECTIVE ADDRESS 
;CHECK EFFECTIVE ADDRESS 
;WITH PC OF BUFFER JSR IN 
;C(3), C(2HNDEX VALUE 

jCONSTANT 
.-CONSTANT 
; REPLACE WITH JMP TO LOOP 



¥¥¥ 



STE3I THAT PC MILL CQU^T THROUGH THE BUFFER* 



§3 457 


834114 


Plf^c; 


LDA 3»BUFF 


8M6tf 


S$4l!5 




LPA 1>FIN 


§1461 


S284I5 




LSA 3*CINC 


iI4-Sa 


«4I4§§ 


Pim-l' 


STA 2* 0^3 


01463 


173481 




INC 3*3* 


§1464 


136414 




sub# *i* 3^S2i 


Si 4165 


iiftts 




J*SP PINS* 


it 456 


fggitli 




LDA 3*C?.tNC 


014^7 


§4!4§@ 




STA 8*8*3 


S147S 


038418 


PlMGBi 


till 2VP1NCR , 


SI4 5 ?! 


034114 




LDA 3'» BUFF 


0147S 


g«14§§ 




jn? 8*3 


S I 473 


136414 


PlHZZi 


SW8# l#3*5EK 


@!474 


§43IS?7 




MALT 


• 1475 


080404 




-J#fP »*4 


01476 


S 75400 


C1MCI 


IPC 3*3 


81477 


001000 


CPXNCs 


J^P SVfi 


01500 


8SI473 


PINCR's 


PIWC3* 


0I5S1 


%Q\zm 




mov n^@ 



I "ILL 7>3 SyFFER 



I PUT JMP IN LAST. LQC 
*C£2>*RETyRN ?g PRO€ 

I GO TO BUFFER 

IBUFER INST SHOULD C8UWT 
iCC13*CORRECT 

iC'C3)^BMFF4-!WC RESULT 



i CHANGE TO LOOP TEST 



■EOT 



JA TEST OF 152 ABILITY TO NOT SKIP 

JTHE CCTEM) IS SET TO 0. INCREMENT ING TO 000001 SHOULD 
1NOT CAUSE A SKIP* PRESSING CONTINUE AFTER A ERROR WILL 
I CAUSE THE PROGRAM TO LOOP ON ERROR UNTILL RESTARTED. 

ICC0)=1#LOOP ON ERROR SWITCH 

fNUMBER' OF ITERATIONS 

10(2) NOT USEO THIS TEST 

I THE VALUE STORED <8> 

I STORE FOR INCREMENT 

JSYN\ AT 7-A74 

I INC A 2ER0S WORD 

J JMP PAST THE ERROR 

USE SKIPPED CC0)=RESULT 

IOF IS2. CORRECT VALUE= +1 

I LOOP ON ERR SWITCH 

1 ITERATE THE PROGRAM 



01502 


102520 IS20: 


SUB2L 0*0 


01503 


824122 


LDA i*C37? 


01 504 


152000 


ADC 2#2 


01585 


176400 


SUB 3*3 


01506 


054107 ISEM 


STA 3#TEM 


01507 


060377 


NIOP "CPU 


01510 


010107 


IS2 TEM 


01511 


000404 


JMP .*4 


01512 


820107 


LDA 0^TEM 


01513 


063077 


HALT 


01514 


102400 


SUB 0*0 


01515 


106404 


SUB 0#1#S2R 


01516 


000770 


JMP 1521 


01517 


150014 


COM# 2*2*S2R 


01520 


063077 


HALT 



1CC2) MODIFIED! I CHECK 
I REPLACE TO LOOP TEST 



IS2 



IA TEST OF IS2 ABILITY TO NOT SKIP 

1THE CCTEM5 IS SET TO -2 C 1 77776) • INCREMENTION TO -1 
1 SHOULD NOT CAUSE A SKIP. PRESSING CONTINUE AFTER A 
I ERROR WILL CAUSE THE PROGRAM TO LOOP ON ERROR UNTILL 

1 RESTARTED. 



01521 102520 IS22* SUB2L 0*0 

01522 024122 LDA 1#C377 

01523 152400 SUB 2# 2 

01524 176120 ADC2L 3# 3 

01525 054107 IS238 STA 3 ? TEM 

01526 060377 NIOP CPU 

01527 010107 IS2 TEM 

01530 000404 JMP *+4 

01531 020107 LDA 0#TEM 

01532 063077 HALT 

01533 102401 SUB 0,0#SKP 

01534 10 6404 SUB 0*1»S2R 

01535 000770 JMP 1523 

01536 151014 MOV# 2#2#S2R 

01537 063077 HALT 



iC<0)=i*LOOP ON ERROR SWITCH 

JCCDsNUMBER OF ITERATIONS 

JC<2) NOT USED THIS TEST 

JCC3)=-2 €177776) 

J STORE AND THEN INCREMENT IT 

j SYNC AT 7-A74 

1IS2 SHOULD NOT SKIP 

I JMP PAST THE ERROR 

JCC0)=IS2 RESULT 

IIT SHOULD BE 177777 

1IS2 LOGIC FAIL 

1 ITERATION COUNTER 

JCC2) MODIFIED 1 ! 

I CHANGE MOV TO LOOP TEST 
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Jfi TEST OF 1SI ABILITY 
iTHE CiltH) 15 SET TO « 
IT3 S SPOLCD PRODUCE 'A* 



1© SKIP 
S <i 77777) • 
*1SE SKIP-"* 



iMCf?£»ENTl©6 TEM 



#I54i 
§154! 
81542 
Si 543 
§1544 
01545 
01546 
§1547 
01 550 
§1551 
01556 
01553 
01554 
01555 
..01556 
• 1557 



l»£S8§ 

I 52000 

§5§2€37 
060377 
01#!87 
000404 
107004 
§00773 
000 40 S 
000107 
063077 
100400 
000766 
101634 
#63077 



1324* SUBEL S#0 
SHEER 1*1 

ADC e#6" 

IS£5i ST* 2>T£» 

WI©P -CPU 
ISi TEN 
•JtfP IS26 
ADD 0#1*3ER 

JNP I St 5 
*SHP ISi 7 
1SZ6I LDA Bstm 

MALT * 
SUB B»§ 
JMP 1525 
1527s l§G¥ER# §#§*S2I 
MALT 



*C<0>M*LOGP ©M ERROR SWITCH 

ICO >*i$0000* ITERATION COUNT 

JC'C25 = i 777?7" 

iSTOR£' THfc '<-!> 

I SYNC AT 7-A74" 

IINC IT SMOlCB .SKIP1 

IFAIL TO SKiP#18E FAIL 

nrtmiim counter 

*C\0NTINUE TES^ 

iEND OF THIS TEST 

JC<0>«RESULT OF FAIL ISi 

I CORRECT ¥Aty£«§ 

1 CLEAR C<0> TO "LOOP 

IOW ERROR FOREVER' 

J REPLACE TO LOOP TEST 

ICC0> 'SHOULD BE ♦! 



JTHE RESULT OF A 152 INSTRUCTION IS CHECKED NITH A AB§» 
MDB IS PRESWED TO WORK. THE ISS 1WC1EMENT L0fiIC»5l«IP 

JAND NO SKIP IS CHECKED* PRESSING CONTINUE' AFTER' A ERROR 
IIIILL CAUSE THE PR068AM"T0 LOOP UNT1LL RESTARTED . 



ii56i 152§2§ ISIlit 

01561 102620 

01562 143005 



01563 
01564 
01565 
01566 
• 1567 
01570 
01571 
§1572 
01573 

§1574 
81575 
01576 
01577 

0!6ii 

§1601 

01602 

01603 

01604 

01605 

01606 

01607 

01610 

01611 



§§S4£t 
©4S!i§~ 
§60377 
010107 

ui*n 

§g§4i§ 

024107 

106015 
§00767 

t 1 540§ 
063077 
156400 

000763 
115405 

§004 IS 

§63077 
S§§77t 
102§S§ 
024101 
063#77 
000766 
101019 



JSEIU 



ISE12I 



ISZ13I 



152141 



syeiL e#e 

5USER 0#0 
ADB 2#0*SNR 

JUP ISE13 

sta §*im 

NIOP GPU 
ISi TEN - 

mm i#§#stcp 

MP ISE1S 

LDA i#T£H 
ADC# 0#1*SNR 
MP ISEi»*2 

INC i#3 
MALT ' 
SUB 2#2 
JNP I5E10*2 
INC *0#3#5HR 
JMP 15214 
LBA WTEN 
HALT ' * • 
JMP ISE12-2 
ADC 0*0* 
LDA t'#TEH 
HALT'"* 

JMP IS212-2 
MOW 0*0 " 



JC€2»»t 

i£-C0J«iSiiii 

JtJPBJIfE THE COUNT BY I 

11SI FAIL TO SKIP ON 177777 

I STORE THE fALUE WQU t&t ■ 

ISYNC 'A 7-A74 

I ••THE** ISZ 

USE SHOULD SKIP AT END ©F TEST 

JOWLY 

I0OES VALUE OF TEN-COUNT* 1 

ha e<s> 

I YES KEEP CMECK1N6 

JCCI)«ISE'C0WT#C<3>«C0RRECT 
US0 'INCREMENT LOBIC" FAILED 

I CLEAR CC2I TO LiOP OW ERROR 

USE SKIPPED WAS THAT OK? 
J YES. EXIT THIS TEST 
JCC1>*"IS2 C0WT#CC3)»1PC COUNT 
iCt' I J SHOULD « C*C3>* Si IP OR NOT 
fCL£AR COUNT "AUB LOOP ERROR 
USE FAIL TO SKIP ©N 
IC<T£M>«-l.CCl>*ISZ COUNT 
I LOOP ON"£RRDR" " 

I CHANGE TO LOOP TEST 



ft t 



JA TEST OF IS2 

JFIVE CONSECUTIVE IS2 INSTRUCTIONS TO LOCATION"TEM" ARE 

JEX£CUT£D*THE VALUE IN CCTEM) SHOULD EQUAL CC3) 

ITHE NUMBERS ARE ARRANGED SUCH THAT NO 152 INSTRUCTION 

J5H0ULD SKIP* SHOULD THE TEST FAIL PRESSING CONTINUE 

1WILL PLACE THE PROGRAM IN A FAILING LOOP UNTILL 
I RESTARTED. 



01612 

01613 

01614 

01615 

01616 

01617 

01620 

01621 

01622 

81623 

01624 

01625 

01626 

01627 

01630 

01631 

01 632 

01633 

01634 

01635 



038121 
102400 
034121 
I 1 7022 
000417 
040107 
060377 
010107 
010107 
010107 
010107 
010107 
024107 
136414 
063077 
136414 
1 52400 
143000 
000 760 
101010 



IS220I 



IS22U 



IS222? 



LDA 


2*CS 


SUB 


0*0 


LDA 


3#C5 


ADD2 


: 0#3#52C 


JMP 


ISB22 


STA 


0*T£M 


NIOF 


» CPU 


IS2 


TEM 


IS2 


TEM 


IS2 


TEM 


IS2 


TEM 


ISZ 


TEH 


LDA 


1*TEH 


SUB* 


> 1*3*S2R 


HALT 


SUB* 


> 1*3*S2R 


SUB 


2*2 


ADD 


2*0 


JHP 


IS220+2 


MO VI 


'- 0*0 



IC(2)=ERR0R SWITCH 
ISTART felTH CC0)=0 
JCC3>=£XPECTED RESULT OF 
JIS2. ALSO TEST FOR END 
I GO TO NEXT TEST 
J STORE THE VALUE TO BE INC 
ISYNC AT 7-A74 
I DO IT 5 TIMES 



1CC1>=RESULT OF IS2*5 

JC<3)=CORRECT RESULT 

ilSZ FAILED 

1IF A ERROR OCCURED 

i CLEAR C<0) TO LOOP ERR 

1 UPDATE FOR NEXT 60 

1 ROUND 

i CHANGE TO LOOP TEST 



I EACH WORD IN THE BUFFER IS SET TO -1 CI 77777). 

1IS2 THEN INCREMENTS IT TO 2ER0 AND SKIPS* THE PROGRAM 

I WILL LOOP ON ERROR IF CONTINUE IS PRESSED 



01636 102520 IS2308 SUB2L 0*0 

01637 024115 LDA 1*FIN 

01640 030114 LDA 2* BUFF 

01641 176000 ' ADC 3* 3 

01642 055000 IS231S STA 3*0*2 

01643 060377 NIOP CPU 

01644 01 1000 IS2 0*2 

01645 000412 JHP IS£32*2 

01646 035000 LDA 3*0*2 

01647 175014 MOV# 3#3*S2R 

01650 000405 JMP IS232 

01651 I 13000 ADD 0*2 

01652 132414 SUB# 1*2*S2R 

01653 000766 JMP ISE31-1 

01654 000407 JMP IS233* 

01655 063077 IS232J HALT 

01656 000403 JMP .+3 

01657 035000 LDA 3*0*2 

01660 063077 HALT '• 

01661 102400 SUB 0*0 

01662 000757 JMP IS231-1 

01663 101010 IS233S MOV# 0*0 



1C<0>*1*THE LOOP ON ERR SW'IT 

JC(1>=FINAL BUFFER ADDRESS 

1CC2>=FIRST BUFFER ADDRESS 

iCC3>=177777 <~1> 

i STORE THE C«l> IN BUFFER 

ISYNC AT 7-A74 

J INCREMENT10N SHOULD SKIP 

J IS2 FAIL TO SKIP 

J DOES BUFFER=0? 

J IF NOT 1S2 FAIL TO COUNT 

I CORRECT * BUT SKIPPED 

1 INC TO NEXT BUFFER LOG 

I AND TEST FOR END 

I END 60 NEXT TEST 
J1S2 SKIPPED BUT STORED NG 
IC<3>=IS2 RESULT* C,X'2>=0K 
IC(2>=ADDRESS OF ERR 
JIS2 FAIL TO SKIP* C<3>= 
JIS2 RESULT. CC2)=EFF ADDRESS 
JLOOP ON THE ERROR 
I CHANGE TO LOOP TEST 



ANQTfffiR TEST OF IS,: 

THIS TEST WILL ADD ONE TO EACH LOCATION OF A BUFFER 

THAT IS PRESET TO ONES, THE LAST LOCATION IN THE 

BUFFER IS SET TO CONTAM ZEROS, THUS PREVENTING 
A IS Z SKIP ON THAT LOCATION, A ISZ INSTRUCTION WILL 
REFERENCE THE BUFFER VIA INDEX REGISTER 2, IF THE 
ISZ INSTRUCTION SKIPS AC2 IS MCREMENTED AND THE 
SEQUENCE REPEATS. WfffiN THE ISZ FAILS TO SKIP THE 
BUFFER POINTER IS ClffiCKED, IF IT IS EQUAL TO THE END 
OF THE BU 

BUFFER THE TEST IS SUCCESSFUL. IF HOWEVER IT IS NOT 
THE BUFFER END THE PROGRAM WILL HALT. IF AN ERROR 
OCCURS THE ENTIRE TEST WILL HE REPEATED UNTIL THE 
;PROGRAM IS RESTARTED. 



01664 126400 IS Z40; 

01665 102000 

01666 034115 

01667 030114 

01670 041000 

01671 151400 

01672 156414 

01673 000775 

01674 045400 



SUB 1,1 
ADC 0,0 

LDA 3, FM 
LDA 2, BUFF 
STAG, 0,2 
INC 2, 2 

SUB#2,3,SZR 
JMP. -3 
STA 1,0,3 



;LOOP ON ERR SWITCH 

FINAL BUFFER ADDRESS 
FIRST BUFFER ADDRESS 
FILL THE BUFFER WITH 

(-D 

EXCEPT THE LAST 
WfflCH IS FILLED WITH 
ZEROS 



01675 030114 IS Z41: 

01676 060377 

01677 011000 

01700 000403 

01701 151400 

01702 000774 

01703 021000 IS Z42: 

01704 156414 

01705 126001 

01706 156414 

01707 063077 

01710 125004 

01711 000754 



LDA 2, BUFF 
NIOP CPU 

ISZ0 f 2 

JMP ISZ 42 
INC 2,2 
JMP ISZ 41+1 

LDA 0, 0,2 
SUB# 2,3,SZR 
ADC 1,1, SKP 

SUB#2,3,SZR 
HALT 

MOV 1,1, SZR 
JMPISZ40+1 



C(2) POINTS TO BUFFER 

SYNC AT 7-A74 
ISZ SHOULD SKIP EVERY 
TIME EXCEPT LAST 
POINT NEXT LOCATION 



C(0>=RESULTOF1SZ 

SHOULD BEA0 

C(l>=LOOP ON ERR SWFT 

C(2>=EFF ADDRESS OF ISZ 

OPERAND. 

IF C(l) NOT PROG 

WILL LOOP 



YYV 



JA TEST OF 651 ABILITY TO MOT SHIP 

JTHE CCTEM) IS SET TO <»ll. DECREMENT Ifl€ SHOULD 

twmmmE -2 and mt skip; pressing comtimue after a 

I ERROR WILL CAUSE THE PROGRAM TO LCOP OH ERROR 
IUMT1LL RESTARTED. 



et7i2 


lig52i OSISf 


StfiiL •#• 


§1713 


m4%m 


LDA 1#€377 ■ 


• 1714 


1 $£§•§ 


ADC •'•£ ' 


• 1715 


17MC0 


ATC 3*3 


• 1716 


£54107 DSZIt 


STA 3#TEM' 


#1717 


§§§377 


miop spy 


i|72§ 


•14107 


©SI TEN 


§1721 


000404 


JMP . + 4 • 


• 1722 


•20107 


LDA i*TEM 


817S3 


§63077 


MALT " 


• 1724 


10240! 


swb §*§»m? 


• 1725 


t&&m4 


BUB i#l#SIR 


§1786 


§mtw 


jmp Bsm 


• 1787 


150014 


COM# 2»2#$1R 


• 173# 


•63077 


MALT * * 



JC(0>«I»LOOP ON ERR SV1TCH 

JCC2> WOT USEO TM1S TEST 
ICO>«»l 

i STORE THE VALUE 

iSYMC AT 7-A74 

* DECREMENT" C<TCM> 

1 it should mr skip 

I IT ^tPPES* C€0»*DS§ RESULT 
i CORRECT VALUE ■-« 
JCLEAR'C<C> TO LOOP ERR . 
I CHANGE AND TEST ITERATION 

icoyrrtu* another pass 
iccomodtfied 1 • 



IA TEST OF DSE ABILITY TO SHIP 
ICCTEM) IS SET'TO • • DECREftENTIMfi CCTtM) TO 
ISWIULS PRODUCE A PSI SKIP* PRESSING CONTINUE 
I AFTER A-EftftOR WILL CAUSE TOHE'PROSRAM'TO LOOP 
JUNTIU. RESTARTED* y 



lCCtl«l#LOOP'ON .ERR -SWITCH 
ICC l»«l •»§••# ITERATIONS 

icct*»! 

I STORE THE • 
ISYNC AT 7-A74 
■ I DECftEMIMTV t T . SMDULD "SM IP 
IDSS PAIL TO SKIP 
l-TEST-ITERAT ION -COUNT 
i CONTINUE -ON 
t#t£XT TEST 

JCC«>«RESULT-Or PAIL-OSI 
-JCOJIRCCT C9UWT«i 
ICLttAl €•€§> TO "LOOP 

*C* •-» -SHOULD BE ♦! 

i CHANCE MOVER 'TO- LOOf»~TCST~ 



• 1731 


102 sec dssei 


SUBEL 1 - 


• 1732 


186680 


StJSIR 1*1 ' 


SI 733 


1SCS8C 


3UML 2*#2 


• 1734 


050107 DSS3I ^ 


. STA %*TtM- . 


• 173S 


•60377 


mop cpy 


• 1736 


CI 4107 


©S§ TEH • 


• 1737 


••§404 


jmp mm 


• I74C 


Ii7ii4 


ADD ®»USm~ 


Cf74t 


000773 


JMP DSI3 


• 174* 


CCC40S 


JMF D5IS 


• 1743 


•til §7 0S24I 


LDA ».TEM 


• 1744 


063077 


HALT * 


• 174S 


1®£40§ 


SIIS 0*0 


•1 746 


§••746 


0*tP DSE3 


• 1747 


I»tt3* DS«t 


HOVM0 0*C»SER 


©I7SS 


•*3«77 


malt ' * 



1 1 f 



• ;a test or dse 

I THE RESULT OF A DS2 INSTRUCTION IS CHECKED 
I WITH THE RESULT OF A ADD INSTRUCTION* THE ADD 
IIS PRESUMED TO WORK BECAUSE OF PREVIOUS TESI ING. 
JTHE DECREMENT LOGIC Of THE DSi£# ITS ABILITY 

STO SKIP, AND NOT SKIP IS CHECKED. SHOULD THE 

JDS2 FAIL* THE PROGRAM WILL HALT." PRESSING 

1 CONTINUE' WILL PLACE THE PROGRAM' IN A FAILING LOOP 

J FOR SCOPING PURPOSES CYOU MUST REMOVE THE HALT>. 

i PROGRAM 

JMUST BE RESTARTED TO GET OUT OF THE FAILING LOOP 



THE 



01751 152000 DS210: ADC 2#2 

01*752 176000 ADC 3*3 

01753 102628 SOBER 8#0 

81754 101400 INC 0*0 

01755 143025 ADDE 2*0*SNR 

01756 000424 JMP DS2 13 

01757 04010 7 STA 0* TEM 

01 760 060377 NIOP CPU 

01761 014107 DS2 TEM 

01762 176001 ADC 3*3*SKP 

01763 00041 1 JMP DS212 

01 764 024107 LDA 1,T£M 

01765 122015 ADC# 1*0*SNR 

01766 000767 JMP DSE10+4 



*C<2>=~1 

1CC3>=-1 

1CC0)=100001 

J TEST FOR PASSING THROUGH 

I DSE FAILED TO SKIP 

J STORE THE VALUE FOR DSc 

ISYNC AT 7-A74 

IT. DECREMENT* THE DS2 SKIPS 

ION EXIT. SET' C<3> — 1 

JDS2 SKIPPED. 

I COUNT OBTAINED FROM DS2 

1 IS COUNT CORRECT? 

JYES CONTINUE ON 



01767 
01770 
01771 
01772 
01773 



1 1 7000 
063077 
152400 
17 6000 

000762 



DS211* 



ADD 0*3 
HALT 
SUB 2*2 
ADC 3*3 
JMP DSE 10+ 4 



f C<3)=C0RRECT COUNT 

iCCl )=DSE COUNT 

1 CLEARING AC2 WILL CAUSE 

I PROGRAM TO LOOP ON ERR 



01774 101235 DS212S MOVZR# 0*0*SNR 

01775 000412 JHP DS214 

01776 024107 LDA I, TEM 

01777 1 I 7000 ADD 8*3 

02000 063077 HALT 

02001 000770 JMP DS211+2 



I DSE SKIPPED* WAS THAT OK? 
J YES 60 TO NEXT TEST 
JCC1>=DSZ COUNT CAUSING 

ITHE SKIP. C<3)=C0RRECT 
JDS2 SKIP LOGIC FAIL 
iLOOP ON THE ERROR 



02002 
02003 

02004 
02005 
02006 



024107 
176400 
102400 
063077 
000763 



DS2135 



LDA 1*TEM 
SUB 3*3 
SUB 0*0 
HALT ' 
JMP DSE 11 +2 



J DSE FAILED TO SKIP 

J FROM 0.CU> = DSZ COUNT 
iCC3>=C0RRECT COUNT 
J LOOP ON ERR 



02007 101010 DSZ14J MOV# 0*0 



I CHANGE TO LOOP TEST 



02010 



000420 

002030 



JMP 2030 
•LOG 2030 



tff 



JA TEST OF DS2 

I FIVE CONSECUTIVE DS2 INSTRUCTIONS TO LOCATION TEM 

I ARE EXECUTED- THE VALUE IN TEM SHOULD EQUAL C<3> 

i WHICH IS 5 LESS THAN THE INITIAL WLUE STORED IN 

JCCTEM> 

I THE NUMBERS ARE ARANGED SUCH THAT NO DSK INSTRUCTION 

1SHOULD SKIP. 



82038 030121 DSZ205 LDA 2*C5 

§2031 182620 SUB2R 0*0 

82032 834110 LDA 3*CM5 

02033 I 17808 ADD 0*3 

82034 048107 DS22H STA 0'*TEM 

02035 060377 " NIOP 'CPU 

02036 814187 DSZ TEM 

02037 014107 DSZ TEH 

02040 01 4107 DSZ TEM 

02041 014107 DS2 TEH 

02042 014107 DSZ TEM 

02043 024107 LDA 1*TEN 

02044 136414 SUB# 1*3*SZR 

02045 063077 HALT ' 

02046 136414 SUB# 1 * 3* SZR 

02047 152400 SUB 2*2 

02050 143023 ADDZ 2*0* SNC 

02051 000761 JMP DSZ20+2 

02052 101010 DSZ22? HOV# 0*0 



1CC2)=ERR0R LOOP SWITCH 
1 START AT 100000 
ICC3>=EXPECTED DSZ RESULT 

I STORE THE VALUE FOR DEC 
J SYNC AT 7-A74 
J DECREMENT* 'C'CTEM) 



JCCI>=RESULT OF DECREHENT 
ICC3>=C0RRECT COUNT 
1DS2 FAILED 

I CLEAT C<2> TO LOOP 
% UPDATE FOR NEXT 
1GO ROUND 
I CHANGE TO LOOP TEST 



IA TEST OF DSZ 

IEACH WORD IN THE BUFFER IS SET TO «• 1 . DSZ THEN 
* DECREMENTS IT TO <*1> AND SKIPPES. IF A ERROR 
IOCCURES THE PROGRAM WILL CYCLE CONTINUSELY 
IUNTILL IT IS RESTARTED* 



02053 102520 DSZ30S SUBZL 0*0 

02054 024115 LDA 1*FIN 

02055 030114 LDA 2*BUFF 

02056 176520 SUBZL'3*3 

02057 055000 DSZ3H STA 3*0*2 

02060 060377 NIOP CPU 

02061 015000 DSZ 0*2 

02062 000412 JMP DSE32+2 

02063 035000 LDA 3*0*2 
020 64 175014 HOV# 3* 3* SZR 

02065 000405 JMP DSZ32 

02066 113000 ADD 0*2 

02067 132414 SUB# 1*2*SER 

02070 000766 JMP DSZ31-1 

02071 000407 JMP DSZ33 

02072 063077 DSZ322 HALT 

02073 000403 JHP .+3 

02074 035000 LDA 3*0*2 
02015 6307 7 HALT 

02076 102400 SUB 0*0 

02077 000757 JMP DSZ31-T 
02100 101010 DSZ33S MOV# 0*0 



1C<0>=1*LOOP ON ERR SWITCH 
IC<1)=F1NAL BUFFER ADDRESS 
JCC2)=F1RST BUFFER ADDRESS 

1CC3>=*1 

I STORE WORD OF IN BUFFER 

I SYNC AT 7-A74 

JDECREMENTION SHOULD SKIP 

1DSZ FAIL TO SKIP 

1DS2 SKIPPED OK* IS MEM 

i word m 

I NO! ERROR - „^- 

JADVANCE TO NEXT LOCATION 

1HORE LOCATIONS IN BUFFER"" 

iGO TO NEXT TEST 

I DSZ SKIPPED BUT STORE NG 

IC<2)=EFF ADDRESS>CC3>=RESULT 

10F THE DSZ 

JDS2 FAIL TO SKIP 

JC<-2>*EFFECTIVE ADDRESS 

JLOOP THIS TEST 

1 CHANGE TO LOOP TEST 



¥¥¥ 



t^r^^pl SUBTRACT ONE FROM mm LOCATION OF A 
UyF?ER «T TO ♦!:«£ TEST HAS BEEN WRITTEN TO GIVE 
5A HI«£ REP PATE FOR THE DS2 IMSTRyCTlOM. PRES5IN6- 
ko5tSJu2^f?er A CRROR HILL CAUSE TME TEST TO be • 
J ITERATED ONTILL RESTARTED. 



02101 

gaits 

82!i5 
02106 

02lii 
§21 1 i 



126000 

102520 

0341 13 

0^i00-a 

15M0S 
f 5&4t4 

§§i77s 

051 4&0 



D324§t 



02112 102000 BSS4II 
'§2113 §3451! 
02! 14 030 U 4 

02115 173000 DS242S 

02116 0&33T7 

§2117 015374 

02120 §§S4tlS 

02121 8153^5 

02122 ®§»4§7 
§212$ it 537^ 
§2t24 f§§§4#6 
52125 5S5377 
§2186 0004&S 
ig!27 £$£<1i<* 

02130 113000 D5143S 
§2131 1 1 3000 
12132 113000 

02133 t 13000 
§2134 0341'; 5 
§2135 021000 

0g!36 156414 
§£137 i£64$0 
©2?4§ !564i4 
§2141 063077 

02142 1240'? 4 

02143 000737 



SIISEL" $*9 
tin 3»FIN 
LDA g;*9UFf 
51ft 0>£*£ 
IMC- 2#2" 
5tJB# fi#3#SER 

ST A 2V0#3 

A©G §*© 
LDA 3*#€4 
LDA 2VBUFF 

ADD ,3#2 
WiOP CPU 



DS2 

«JHP 
P5Z 
JMP 
SS2 
JMP 
DS2 
JMP 
JNP 



-4*2 
DS243 

~3#2 
DS243+1 

~2#2 
DSI43+2 
•1#2 "' 

BSM43*3 
DSE42" 



AID S#2 
APi 0*2 

ADD §*#2 

add 0V2 

LBA 3VFIN 
LDA 0V0*2 

5tJB# 2#3#S2R 
SOB I#'t 
SUi#"S#3#S2R 

HALT 

COM# l#l#S2M 

JUP D$fc40*l 



IC<I )=LOOP 
*C"<0>=+1 



ON ERROR SWITCH 



I SET ALL LOCATIONS IN 

I THE BUFFER TO 2E10 

I EXCEPT THE LUST LOCATION 

J DSZ SKIPS ALL BUT LAST 

$C<0>*-1*FOR ERROR CHECK 
iC'< 3 >»4* BUFFER INCREMENT 
iC'<2) "POINTS TO THE' BUFFER 

tim BUFFER POINTER BY 4 
I SYNC 7-A74 
1DECREWEHT THE ByFFER 
JVtA D52* DSZ SMOtfLD SKIP 
JtWLESS END OF BUFFER 



J NOT YET BUFFERS END 

IS<2> WILL BE SET 

I TO THE EFFECTIVE ADDRESS 

I0F THE ENTERING DSZ 

J INSTRUCTION 

J DID DSZ ENTER AT' END OF 

1 BUFFER OR DID IT FAIL? 

3GC3>«END OF- BUFFER 

I CX 2 > EFFECTIVE ADDRESS 

*C'<g>«RE$ULT"QF DSZ INST 

lA"DSf FAILED "TO SKIP 

j»F CU>*0 LOOP ON ERROR 



EOT 



02144 
02145 
02146 
02147 
02150 
021 51 
02152 
82153 
02154 
02155 
02156 
02157 
02160 
02161 
02162 



102520 
0301 14 
0341 !5 
050107 
060377 
028107 
024107 
132414 
063077 
132414 
102400 
1 13000 
156414 
000766 
101010 



?A TEST OF INDIRECT ADDRESSING 

1THE CCTEM) IS SET TO POINT TO A BUFFER. A LDA 
I INSTRUCTION THEN REFFERANCES THE, BUFFER INDIRECTLY* 
1THL' CCTEM) IS CHECKED TO INSURE THAT IT HAS NOT - ' 
I CHANGED. PRESSING CONTINUE AFTER A ERROR WILL CAUSE 
I THE PROGRAM TO LOOP ON THE FAILING CONDITIONS 
JUNTILL RESTARTED* 

DEF0I SUBcL 0#0 ' JC(0> = 1#LOOP ON ERR SWITCH 

I FIRST ADDRESS IN BUFFER 
5 FINAL ADDRESS IN BUFFER--' 
ICC2) STORED IN CCIEi*f> 
ISYNC AT 7-A74 
1REFFERANCE .REGISTER- TEM 
I HAS C<TEf4) CHANGED 
IIF*OR- ONE PERHAPS AUTO IDX 
JYES.C'CD-VALUE OF TEM 
JC<2)=VALUE STORED IN TEM 
1 CLEAR C(0> TO LOOP 
I INC BUFFER POINTER 
J TEST FOR END OF BUFF 



SUBcL 0#0 
LDA 2 * BUFF 
LDA' 3'* FIN 
STA 2'* TEM 
NIOP CPU 
LDA 1*STEM 
LDA 1#TEM 
SUB# 1»2#S2R 
HALT 

SUB# l*2*SZR 
SUB 0#0 ' 
ADD 0*2 
SUB# 2*3>SER 
JMP DEF0*3 
MOV# 0*0 



i CHANGE TO LOOP TEST 



IA TEST OF INDIRECT ADDRESSING 

JA ADDRESS PATTERN CC<ADDRESS> =ADDRESS> IS STORED IN 

ITHE BUFFER VIA INDEX REGISTER 3. A LDA INSTRUCTION 

JTHEN 

1REFFERANCES EACH LOCATION IN THE BUFFER INDIRECTLY. 

1 BECAUSE THE BUFFER CONTAINS A ADDRESS PATTERN THE DATA 

OBTAINED REPRESENTS THE ADDRESS OBTAINED. PRESSING 

1 CONTINUE AFTER A ERROR CAUSES THE PROGRAM TO LOOP ON 

ITHE 

I ERROR UNTILL RESTARTED* 



02163 102520 DEF10I SUBcL 0#0 

02164 034114 LDA 3*BUFF 

02165 030115 LDA 2, FIN 

02166 055400 STA 3#0*3 

0216? 175400 INC 3*3 

02170 156414 SUB# 2#3*5£R 

02171 000775 JMP .-3 

02172 034114 LDA 3*BUFF 

02173 054107 DEFllf STA 3*T£M 

02174 060377 NIOP CPU 

02175 026107 LDA !*§T£M 

02176 136414 SUB# l#3#S2R 

02177 063077 HALT 

02200 136414 SUB# 1»3*S2R 

02201 102400 SUB 0*0 

02202 1 1 7000 ADD 0#3 

02203 156414 SUB# 2#3#S£R 

02204 000767 JMP DEFll 

02205 101010 MOV# 0*0 



IC<0)=1#LOOP ON ERR SWITCH 
JFIRST BUFFER LOCATION 
1 FINAL BUFFER LOCATION 
i STORE THE ADDRESS 
^PATTERN IN THE BUFFER 
1EXAMPLES CC4105>=4105 

IADDRESS PATTERN IS STORED 

IPRESET CCTEM) FOR INDIRECT 

ISYNC AT 7-A74 

I GO INDITECT TO GET DATA 

JCC1 >=DATA/ADDRESS OBTAINED 

1C<3>=C0RRECT DATA/ADDRESS 

i IF IT FAILS 

ICLEIAR TO LOOP ON ERROR 

I ADVANCE TO NEXT ADDRESS 

I TEST FOR END OF BUFFER 

1 CHANGE TO LOOP TEST 



¥¥¥ 



JA TEST ©F 1MD1RECT ADDRESSING 

JWE CIO mm YET 'KNOW THAT INDIRECT ADDRESSING WORKS 
JTHIS TEST INSURES THAT THE STA INST STORES INDIRECT 
*A*fi *0T OlSECTLf. If A ERR 0CCURES PRESSING -CONTINUE 

iWILL CAUSE THE PRO GRAN TO LLOP ON ERROR UNTILL 
IRSSTAIT. 



02t§7 

0tet§ 

02211 

08212 
•22 1 3 
•2214 
0221 5 
•2216 
•2217 
02220 
02221 
02222 
02223 
. 02224 
•2225 
02226 



1 02520 DEF14* StJSIL 0*0 

030114 " ' LDA &*BWF 

•34122 LDA 3VC377 

050107 STA 2VTEH' 

150000 CO« 2V2 

060377 NIOP CPU - 

§52107 STA 2##TEM 

150000 60N 2**2 

•24187 LDA IV TEN 

132414 SOB#'l#2#SIR 

mmn malt ~* 

146414 SUB# 2,1* S2R 

102400 sm 0#i"" 

113000 ■ ADD «V2 

116404 SUB 0V3»SSR 

#§•764 JWP 1EF14+3 
101010 DEFI5I NO¥# •#• " . 



JC<0>«1#LOOP ON ERROR SWITCH 

iC'<£> "POINTS TO TH£"iUFP£R 

JG"<3> = lT£RAfl©N COWTER 

I STORE BiFF POINTER IN CCTEIO 

IGMANGE C<2> • 

JSYWC AT 7-A74 

J STORE VlA*'C"€TfH> INDIRECT 

I RESTORE CC2> 

JDtD CCTEM'J CHANGE? 

JCCD-VALUE IN C«TEM> 

IC"C25*0RI6 VALUE' Of TEN 

IIF CU>' IS COUP OF CC25 

ISTA STORED DIRECT 

I LOOP ON ERROR 

i ITERATION COUNTER 

f CHANGE TO LOOP PROGRAN 



3 A TEST OF INDIRECT ADDRESSING 

ITH1S ROUTINE WILL TEST THE 'ABILITY OF THE STA 

\ INSTRUCTION 

#TO STORE' IN A BUFFER USING INDIRECT ADDRESSING* THE 

| DATA " 

ISTGRED IS TME COMPLEMENT OF THE ADDRESS INTO SdtCICM IT 

J IS" ' 

JSTORED. EXAHPLEt CC5073>«1 78704. IF A ERROR OCCURES 

I PRESS ** 

fCONTiNUE TO LOOP ON THE FAILING CONDITIONS* 

iCC0>*t#L0OP ON ERR SWITCH 
ICCfi5»FlRST BUFFER LOCATION 
ISET^TEM'TO POINT' TO POFPiR 

I SYNC AT 7-A74 
I STORE CC»#fP OF ADDRESS 
I VALUE STORED TO AC1 
ID1S IT STORE OK? 
fCC£>*APPPt£S5 IN BUFFER 
IC*C3>«DATA STORED 
JC'<1>*DATA FROM "BUFFER 
j AH VANCE TO NEXT LOC 

I TEST FOR END OF BUFFER 

f CHANGE TO LOOP TEST 



02227 


10£5R0 DEF2il 


5UB1L 0*0 


02i30 


030114 


LDA 2* BUFF 


02235 


iSiia? 


STA 2VTEM 


££232 


I5400i 


COM £V3 


02233 


<§ 60377 


NIOP GPU 


ii234 


056107 


STA 3#tTEM 


02235 


025000 


LDA 1V0#2 


£2234 


136414 • 


SUB#'1»3#SSR 


§2237 


063077 


MALT ~* ' 


§22 4S 


136414 


SUS# l*3#S2i 


02241 


102400 


sub §;& 


§2242 


1 1 3000 ' 


ADD 0V2 


02243 


§34115 


LDA 3VFIN 


02244 


156414 


SUB0 2#3*SZR 


02245 


S§07i4 


JMP DEF2i*2 


§2246 


101010 DEF21I 


NOV* 0*0 " 



¥¥¥ 



ST0 8E ,«?!?,™ SS?AWS "fAMRSI THE LD« INSTRUCTION 
iEnROB UMTILL" RESTARTED. 



02247 

§mm 

§2251 

•tess 
asgss 

02254 
§2855 

§2256 

•2857 

,02268 

0S261 

§2262 

08263 
§2264 

82265 
•02266 
§2267 
02278 



t§2§2§ 
830114 

§34115 
051000 

151400 

156414 
§08775 

030114 

Bmrn 

827000 

1D&414 
§63017 
13241 4 
102400 
1 1 3§8§ 
156414 
800770 
101010 



DEF30* 



DEF3t t 



SUB2L Bf& 
LDA 2sBW¥ 
LDA 3#flN 
STA 2*#S#2 
INC 2 #2' 
SU8# B#3*5£R 
JMP • "•$ 

L»A 2#BUFF 
MOP CPU 
L§A 1#§0*2 

5UB#"U'2*SgR 

MALT "' ' 
SOB# 1#2#S2R 
SUB i#0 
ADD 0'#2 
SUB# S#3#5£R 
JMF DEF3t*f 
MOV# 0#0""" 



lC€0>*I»LOOP m ERROR SWITCH 
jFlRST'ADbRESS IN BUFFER 
I FINAL ADDRESS IN BUFFER 
I STORE A ADDRESS PATTERN 
UN THE BUFFER-. 
lEXAMPLEt C<73!4>«7314 

I FIRST BUFFER LOCATION 

JSYPC AT 7-A74 

ISMOULD LOftP^ WB POWTEB T© 

SCC2>«ABDRESS 1NOIRECT THROUGH 

IC'C DEVALUE OBTAINED 

i CLEAR TO LOOP OP ERROR 
j INC TO NEXT BUFFER LOG 
JTEST FOR END OF BUFFER 

I CHANGE TO LOOP TEST 



DEF32S 

ia TEST OF INDIRECT ADDRESSING ^^m,. , % tc 

Ss^^r-s-syss rsas as 1 - 

ISSSi. tS \5S S thi am, wtul »st«»t E .. 



§2871 !02S2§ DEF34t 
02272 034115 
§2273 §30114 
§2274 @5l00i 
02275 151400 
§2276 156414 
§2277 000775 
08300 030114 DEF35I 
02^8! 86S377 

02302 053001 

02303 0tS§0§ 
§2304 132414 
02305 863077 
023§6 132414 
02307 1024i§ 
02310 113000 
§2311 156014 

02312 §00767 

02313 181010 DEF36I 



SUBBL «*0 

LPA 3#FlN 
LDA 2 # BUFF 
STA 2**1 #2 
INC 2*2* 

5US# 2#3#S2R 
MP ' • -3 ' 
LDA BVBUFF 

NIOP cpy 
STA 2#il#2 
LPA f#0i2 
SUB#'1'&»S2R 

MALT ' 
SUB# 1#2#S2R 
SUB 0#8 
ADD 0#2 
ADC# 2#3#SZR 
JMP DEF35*1 
NOV# 0*8 



IC€0>=1 

# FINAL "LOCATION IN BUFFER 

j FIRST LOCATION IN BUFFER 

UN EACH^BUFFER LOCATION 

j STORE THE ADDRESS OF THAT 

*LQCATION'-l 

1 FIRST BUFFER LOCATION 
I SYNC AT 7-A74 " 
1 DEFER TMR0U6K BUFFER* STORE 
ICC2> IN BUFFER- I- THEREFOR 
I STORE ADDRESS IITADDRESS. 
IFOR EXAMPLES CC4i5i>=XXK 
fCC4f51) = 4i5i*C'C2) = 4@5i 
I INDIRECT THROUGH' 4051 TO 
ISTORE CC25 If) LOCATION 4850 
I TEST 'FOR END OF 'BUFFER 

ICHANSE TO LOOP TEST 



f 1 1 



*■?. TFST OF iNDIrECT A«3DkES31«G C2 LEVELS) 

1TH~ a'dF^hR 15 SET TO CONTAIN A ADDRESS PATTER. A LDA 

1 3CNSTRUC"! ION USING TV»0 LEVELS OF INDIRECT ADDRESSING 

5 THEN REFFEEANCES EACH LOCATION IN 1>.L b'JFFE/:. PRESS IV 

1 CONTINUE AFTER A ERROR WILL CAUSE THE PROGRAM TO LOUP 
ION THE ERROR UNTILL RESTARTED* 

fCC0)^l*LOQP ON ERR SWITCH 
JFIRST BUFFER LOCATION 
IFINAL BUFFER LOCATION 
I STORE A ADDRESS PATTERN 
1 IN THE BUFFER 



1 FIRST BUFFER LOCATION 

ICC 1 }=100000*THE DEFER BIT 

1C< 2 >= INDIRECT POINTER 

I TO BUFFER 

i SYNC AT 7-A74 

;GO INDIRECT FOR DATA 

JCC!)=DATA FROM BUFFER 

SC<2>=CORR£CT DATA 

12 LEVELS INDIRECT FAIL 

1 CLEAR TO LOOP ON ERROR 

I INC TO NEXT BUFF LOG 

iTEST FOR END OF BUFFER 

1 CHANGE TO LOOP TEST 



02314 


102520 


DEF485 


SUBEL 0*0 


8231 5 


0381 1 4 




LDA 2>BUFF 


02 31 6 


0341 1 5 




LDA 3* FIN 


0231 7 


w Si 000 




STA 2*0*2 


02323 


1 51430 




INC 2"#2 


02321 


i 564! 4 




SUB# 2*3*StR 


02322 


000775 




JMP .-'3 


02323 


0301 14 


DEF4U 


LDA 2*BUFF 


02224 


126620 




SUBER 1*1 


02325 


147000 




ADD 2*1 


02326 


044107 




STA 1*TEM 


02327 


060377 




N10P CPU 


02330 


026107 




LDA 1*§TEM 


02331 


132414 




SUB# *1*2»S2R 


02332 


063077 




HALT 


02333 


132414 




SUB# l*2*S2R 


02334 


102400 




SUB 0*0 


02335 


1 13000 




ADD 0*2 


02336 


156414 




SUB# 2*3*S2R 


02337 


000765 




JMP DEF41+1 


02340 


101010 


DEF42S 


MOV# 0*0 



1A TEST OF JSR (HARD TEST) 

JTHE BUFFER IS FILLED WITH THE FOLLOWING 

JSR 2,3 I GO TO THE LOCATION SPECIFIED Bk 

i JSR 0.2 3 GO BACK TO THE CONTROL PROGRAM 



j 
1 
1 
STKE 

JTHE 
I THE 
1THE 
f #1 
J #2 
J#3 
i%4 
i#5 

J#6 



,jsn 0*2 

JSR 0*2 
JSR 2*3 
C<3> IS INITIALLY 

CC2) M M 

PROGRAM THEN JUMPS 
BUFFER SEQUENCE IS 
TO BUPFER*3 



JSR 
JSR 
JSR 
JSR 

JSR 
ETC 



TO 
TO 
TO 

TO 



. #• »♦ »* *♦ s « " 

J GO TO HHE LOCATION SPECIFIED B 
SET TO BUFFER* 1 

ft RETURN TO MAIN PROGRAM 

TO THE FIRST BUFFER LOCATION* 

AS FOLLOWS? 

CC3>=BUFFER+1 
BUFFER+3 CC3>=BUFFER*4 
BUPFER+6 CC3>=BUFFER+4 
BUFFER* 6 C<3)=BUFF£R+7 
BUFFER*! 1 CC3)=BUFFER*7 



¥¥¥ 



f REACHED* 

I AT FINAL ADDEESS#FINAL-1pFINAL*1_#THE PftOiRAM RETURNS 

t *»*f - T T 

*MAIN SEQUENCE* THE PC STORED SY TME FINAL ^S« IS 
I CHECKED* 

* FIRST eUFFIR LOCATION 
J LAST iyFFEl L0CATIQM 
iCQMSTAMT <JSR 2#3>*CONTIMUE 
i CONSTANT <JSH 8"# 2 > "RETURN 
J STORE COMflitUE 
I ** RETURN 



I TEST FOR WO ©F BUFF1I 
* PERHAPS 1#« EXTRA WiPS 
JNAKE LAST* CONTINUE A RETURN 

I INITIAL SETUP OF CO) 
IFOR FIRST JSR IN BUFFER 

iTfiE momm return 

1SOTH €€0S*C<S) SET TO S 

JWILL CHECK FOR NO EFFECT BY 

IJSR 

ISO TO TME BUFFER! 

I THREE CONSTANTS 



JCC0>«C<1> SHOULD NOT HAVE 
I SEEN' CENSED ft 
JTEST C€3> FOR FINAL«FINAL-1 
$m FINAL* I* ADDRESS 

fCC3> * ADDRESS OF RETURNING 



02341 330*14 


J5E2§i 


LDA 


S»BUFF 


02342-i34i!5 




LDA 


3#FIN 


•1343 020422 




LOA 


0«CJSR3 


02344 624*20 




LBA 


1»CJSR2 


0234$ 042000 


JSR2H 


STA 


*«0#2 


02346 §45001 




5XA 


i#i#g 


§2347 fi45Sit 




STA 


i#i#2 


02350 151400 




IMC 


2*H" 


0235! 1 SI 400 




IMC 


2*2 


§2352 151400 




INC 


£»B 


§23S3 t 56432 




SUBEf 2#3#S2C 


023S4 000771 




JUP 


JSRR1' 


S2355 §4537$ 




STA 


l»-3;2 


§2356 034114 


JSR28S 


LBA 


3#gyrr 


02357 |7$4§§ 




IMC 


3*3 


S23&3 Gaaw* 




LBA 


RVCJSR4 


§2361 102400 




SUB 


•»• 


02362 126400 




sm 


r«i 


§2363 SA1777 




JW 


-1*3 


02364 00SS00 


CJSR2I 


JSR 


S#2 


02363 Z^^^Z 


CJSR3I 


JSR 


e»3 


§2366 032367 


CJSR4S 


• ♦1 




§2367 107004 


JSR23t 


ADD 


0#l#SiR 


§2378 063177 




MALT s '* 


mzn 020? is 




LBA 


0#FI^ 


g237t 162644 




SU80R' 3*@#SER 


§2373 10000S 




con 


0»0#SNR 


02374 101011 




nov# b»b«skp 


§237$ #63977 




HULT " 


©237£ lg!@§§ 




NOV 


•»• 



JCNAN8E TO LOOP TEST 



f f • I 



J A TEST or 

J THE FIRST 



INDIRECT ADDRESSING C2 LEVELS) 

HALF OF' THE BUFFER IS FILLED WITH CJSR 8#3) 



1 INSTRUCTIONS* THE SECOND HALF IS FILLED 

JAND ADDRESS POINTING TO THE (JSR) INSTRUCTIONS IN THE 
J BOTTEM. CCTEM) POINTS TO THE TOP HALF OF THE BUFFER. 
;THiC SHtUENCE IS AS FOLLOWS: 



i#! GO INDIRECT THROUGH 

I #2 WORD IN TOP POINTS TO 

J #3 INSTRUCTION IN BOTTEM 

f#4 PC (C<3>) FROM BOTTEM 



REGISTER TEM 
BOTTEM 
IS EXECUTED 
IS CHECKED 



IPRESS1NG CON1INUE AFTER A ERROR WILL CAUSE 
I TO LOOP ON THE ERROR UNTILL RESTARTED* 



TME PROGRAM 



02377 
02400 
02401 
82482 
82403 
02404 
02405 
02406 
0240? 
02410 
0241 1 
02412 
02413 
02414 
02415 
02416 



034115 
§301 14 
0241 14 
02043? 
166640 
041000 
151400 
12S404 
000775 
50107 
020 U 4 
041000 
101400 
151400 
156414 
000774 



DEFS0 



DEF51 f 



LDA 3, 

LDA 2» 

LDA r, 

LDA 0, 
SUBOR' 

STA 0, 

INC 2, 

INC 1, 

JMP .- 

STA 2V 

LDA 0* 

STA 0", 

INC 0» 

INC 2, 
SUB# 2 

JMP .- 



FIN 

BUFF 

BUFF 

CJDF1 

3, 1 

0,2 

2 

USER 

3' 

TEM 

BUFF 

0*2 

0' 

2 

*3,S2R 

4 



I FINAL BUFFER ADDRESS 



5PIRST 



IFFER ADDRESS 



JCONSTANT CJSR 0,3> 

ICC I >*CLAST-FIRST>/2 = -WC 

J STORE THE JSRS* 

J IN BOTTEM PART'OF BUFFER 



1CCTEH)=FIRST LOC IN TOP 

I STORE A MODIFIED ADDRESS 
I PATTERN IN TOP HALF OF 
J THE BUFFER. CCTOP> = 
1B0TTEH ADDRESS* 108000 



02417 
02420 
02421 

02422 
02423 
02424 



030107 
102620 
143000 
040107 

0241 14 
102S20 



DEF52S 



LDA 2* TEM 
SUBHR 0*0 

ADD 2*0 
STA 0*#TEM 

LDA 1,BUFF 
SUB2L' 0*0 



ICC2) POINTS TO TOP HALF 

JC<0>=!00000 

I THIS ROUINE AADDS THE 

i INDIRECT BIT TO CCTEM) 

iCCI ) USED FOR CHECK 

ICC0>-1*LOOP ON ERR SWITCH 



02^25 
0242 6 
02427 
02430 
02431 
02432 
02433 
02434 
02435 
02436 
0243? 
02440 
02441 



06037? 
006107 
136014 

063077 
136014 
102400 
107000 
101014 
010107 
132014 
000766 
101011 
005400 



DEF53I 



DEF54; 

CJDF1 s 



NIOP CPU 
JSR STEM 
ADC# 1,3,S2R 

HALT 

ADC# t,3,S2R 
SUB 0*0 ' 
ADD 0,1 

MOV# 0,0, S2R 
IS2 TEM 

ADC# l,2,ScR 
JHP DEF53 

MOV# 0*0, SKP 
JSR 8,3 



iSYNC AT 7-A74 

1G0 TO THE" BUFFER CC3) = 

I JSR RETURN*C<I >=CORRECT 

1 FINAL ADDRESS. INDIRECT WITH 

J JSR FAILED 

J CLEAR TO LOOP ON ERROR 

I POINT TO NEXT BUFFER LOC 

1 INC IF NOT ERROR 

I TEST FOR END OF BUFFER 

I CHANGE TO LOOP TEST 

% A CONSTANT 



¥ f f 



02 442 8201 14 RANFL: 
02443 048107 
§2444 Q341 i 5 

02445 024000 

02446 121000 RANFC: 
0244? 024433 

02450 152628 

02451 10 7222 

02452 147000 

82453 131080 

82454 113520 

02455 187000 

02456 146408 

0245? 0201 12 

82460 123400 

0246! 030114 

02462 162433 

02463 142033 

02464 000762 

02465 030107 

02466 112415 

02467 000757 

02470 101120 

02471 125100 

02472 101200 

02473 125200 

02474 042107 

02475 010107 

02476 030107 
0247 7 15 6014 

02500 000746 

02501 10101 1 

02502 135753 C1347J 



LDA 0#BUFF 
STA 0#TEM 

LDA 3* FIN 
LDA 1*0 
MOV IV 
LDA 1?C1347 
SUB2R 2#2 
ADD2R 0#1#S2C 
ADD 2#I 
MOV 1#2 
ANDZL 0*2 
ADD 0* 1 
SUB 2'# ! 

LDA 0,M5IEE 
AND t#0 
LDA 2*BUFF 
SUB2# 3#0*SNC 
ADC2# 2*0* SNC 
JMP RANFC 
LDA 2#TEM 
SUB# 0#2#SNR 
JMP RANFC 
MOVZL 0#0 
HO VL 1*1 
MOVR 0*0 
MUVR I'M 
STA 0#f»TEM 
ISZ TEM 
LDA 2* TEM 
ADC# 2*3>S£R 
JMP RANFC 
MQV# 0*0* SKP 
135753 



J FILL THE BUFFER WITH 

; RANDOM ADDKiJS IN 

I B I T £ 4-15. THIS V AL U E 

J WILL POINT TO SOME 

J OTHER SPOT IN THE BUFFER 

J BIT IS RANDOMLY 0/1 

1THI5 

I ROUTINE PRODUCES A 
J RANDOM 16 BIT NUMBER 
ICC I )sRANDOM 



J MASK OF MEM Sl^E 
JCC0>=RANDOM MODULO MEMORY 

MS CC0) WITH IN THE 
I RANGE OF THE BUFFER? 
J NO TO BIG OR TO SMALL 



1 REJECT IF ADDRESS SAME 

fGCBIT 0> RANDOM DETERMINES 
MF WORD GETS INDIRECT BIT 

1 STORE THE WORD 

MEST FOR END OF BUFFER 

I MAKE MORE RANDOM 
1 CHANGE TO LOOP 



ft f 



02503 
02504 

0250 5 
02506 
02507 

02510 
02511 

02512 
02513 
02514 
02515 
02516 
02517 

02520 

02521 

02522 

02523 

02524 

02525 

02526 

02527 

02530 



JA T£ST OF INDIRECT ADDRESSING 

iTHr BUFFER IS FILLED WITH PSEUDO RANDOM NUMBERS WHICH 

iAR^ ADDRESSES. THE VALUE OF EACH ADDRESS POINTS TO 

JSOME SPOT IN THE BUFFER* BIT OF EACH BUFFER 

I WORD IS RANDOMLY SET OR - "CLEARED. THE PROGRAM FIRST 

1POINTS TO THE FIRST BUFFER LOCATION. THE FINAL 

JEFFECTIVE ADDRESS IS CALCULATED UP TO 1 5 LEVELS OF 

J INDIRECT. A LDA INSTRUCTION THEN REFFERANCES 

1 INDIRECTLY _, rtfn ^ ofik 

I THE BUFFER. THE RESULT OC THE INDIRECT LDA SHOULD Bt 

JTHE SAME AS THE CALCULATED VALUE. IF IT IS NOT THE 

I SAME THE CORRECT CHAW SHOULD BE" 'CALCULATED WITH PAPER 

J AND PENCIL. RESTARTING THE PROGRAM AT THE LOCATION 

J FOLLOWING THE HALT WILL CAUSE THE PROGRAM TO ENTER 

1A FAILING LOOP UNTILL RESTARTED* A SYNC PULSE AT 

J7-A74 PROCEEDS THE INDIRECT CHAIN. 



024114 
121120 
101240 
040123 

102520 
131000 
101125 
000417 
031000 
151132 
000774 
050107 
031000 

2 02520 

060377 
036123 
172414 
063077 

172414 
18240 i 
101005 
000771 



DEF60! 



DEF61I 



02531 125400 DEF62S 

02532 034115 

02533 136414 

02534 000750 



LDA I # BUFF 
HOVEL 1#0 

MOVOR 0*0 
STA 0#CFOO 
SUB2L* 0^0 
MOV I #2 
M0V2L 0#0#5NR 
JMP DEF62 
LDA 2#0#2 
M0V2L# 2>2#S2C 
JHP .-4 
STA 2VTEH 
LDA 2#0#2 

SU82L 0#0 
NIOP CPU 
LDA 3#®CFOO 

SUB# 3#2#S2R 

HALT ' ' 

SUB# 3#2#S2R 
SUB 0#0#5KP 
MOV 0'»0*SNR 

JHP DEF61+1 

INC l#l 
LDA 3#PIN 
SUB# 1»3*S2R 
JMP DEF6i*l 



02535 101010 DEF63I «OV# 0#i 



I FIRST LOCATION IN THE BUFFER 



5CCi)sl#LEVEL COUNTER 

I COUNT INDIRECT LEVELS 

115 LEVELS* GIVE UP THIS CHAIN 

JGET BUFFER WORD 

JDOES IT HAVE A INDIRECT BIT 

JYES KEEP LOOKING 

ICC2)*FINAL VALUE 

JC<0**i*LOOP ON ERR SWITCH 
I SYNC AT 7-A74 

IREFFERANCE THE BUFFER 

ICC3>=W0RD OBTAINED 

ICC2)=C0RRECT 

ICC1>=PL§CE BUFFER WAS ENTERED 

j WRITE DOWN THE CORRECT 

I INDIRECT CHAIN#5INSLE STEP 

I LOOP ON THE ERROR 

I GO TO THE NEXT BUFFER LOC 

1TEST FOR FINAL 

I NOT YET BUFFER END 
I CHANGE TO LOOP TEST 



1 1 1 



J A TEST Of INDIRECT ADDRESSING 

I THIS TEST IS tflKULA* I,) THE PREVIOUS TEST IN THAT 
1 BUFFER IS FILLED WITH PSEUDO RANDOM NUMBERS. EACH 
JLOCATION IN THE to-jr-t'-. .•,.-. Y ^ONIAiN A INDIRECT 8IT« 
J EACH LOCATION ALSO CONTAINS A N BIT ADDTcESS OF A 
i BUFFER LOCATION. A ROUTINE CALCULATES EFFECTIVE 
I ADDRESS UP TO 15 LEVELS. THE EFFECT OF A INDIRECT 
Jibt/D^ I^ST.--UC1 I-- ; v :■>■>:■•-; 1. CHEC--.EL>. 



THE 



02536 


0301 14 EXCHl 


LOA 2* BUFF 


02537 


0341 15 


LDA 3*FiN 


02540 


821000 


LDA 0,8*2 


02541 


025777 


LDA !*-'!# 3 


82542 


045000 


STA 1*0*2 


02543 


041 777 


STA 0,-b3 


02544 


151400 


INC 2*2 * 


02545 


17 4400 


NEC 3*3 


02546 


1 74800 


COM 3*3 


02547 


172433 . 


SUB2# 3*2*SNC 


02550 


000770 


JMP EXCH+2 


02551 


024114 DEF648 


LDA 1*BUFF 


02552 


121120 


MOV2L 1*0 


02553 


101240 


WOVOR 0*0 


02554 


040123 


STA 0*CFOO 


02555 


102520 


SUB2L 0*0 


02556 


131000 


MOV 1*2 


02557 


101 125 


MGV2L 0*0* SNR 


02560 


000422 


JMP DEF'66+2 


02561 


031000 


LDA 2*0*2 


02562 


151 132 


MOV2L* 2* 2* SEC 


02563 


000774 


jteP »~4 


02564 


050107 


STA 2*TEM 


02565 


031000 


LDA 2*0*2 



i CAN'T USE AUTO INC/DEC YE"* 

I EXCHANGE BUFFEk ENDS SO 
I IT WONT BE THE SAME AS 

I LAST TEST 



J INC TOWARDS TOP*DEC TOWARDS 

1BOTTEM 

J TEST FOR MIDDLE 

I OF THE BUFFER 

I FIRST BUFFER LOCATION 



JC<0>~LEVEL COUNTER 

I1F MORE THAN 15 LEVELS 

IOF INDIRECT* GIVE UP 
I CALCULATE EFFECTIVE 
IADDRESS. LOOK FOR INDIRECT 
IBIT A'ONE 

1CCTEM)=EFFECTIVE ADDRESS 
ICC2>=DATA THAT ADDRESS 



ft f 



02566 


102 520 DEP6SI 


5U82L 0#0 


02 56 7 


06037 7 


NIOP CPU 


02578 


- ' l ; ' * ;- ' ?■ 


ISr. SCf'JO 


02571 


tf 3 6 1 7 


LDA 3#iTEM 


02572 


01 6107 


DS'£ §T£M 


82573 


1 56815 


ADC# 2#3#SNR 


02574 


000413 


JMP DEF67 


fc2515 


§63077 


HALT 


02576 


102400 


SUB 0#0 


02 577 


52107 


STA 2,9TEM 


02608 


101005 DEF66: 


my 0*0* snr 


02601 


000766 


JMP DEF&5+1 


02602 


125400 


INC 1*1 


82603 


0341 15 


LDA 3#F1N 


02604 


136414 


SUB# i*3,»SER 


02 60 5 


000745 


JMP DEF64+1 


0268 6 


000406 


JMP . + 6 


02607 


036107 DEF675 


LDA 3#<§T£M 


02610 


172415 


SUB# 3*2,SNR 


02611 


000767 


JMP DEF66 


82612 


063877 


HALT 


02613 


000763 


JMP DEF66-2 


02614 


101010 


HOV# 0#0 



JCC0)=I*LOOP ON ERROR SWITCH 
J SYNC AT ?~A7^ 



J INCREMENT CORRECT? 

1C€2)=C0RRECT#CCTEM)=ADDRESS 

SC<3> = twORD FROM BUFFER 

1 CLEAR TO LOOP ON ERROR 

1 HOPEFULLY RESTORE MEMORY 

I TEST THE ERR SWITCH 

J LOOP ON ERROR 

i ADVANCE BUFFER POINTER 

1TEST FOR FINAL ADDRESS 



J GO TO NEXT TEST 

J 152 WORKED TEST DS2 

JCC2>=C0RRECT*CCTEM)=ADDRESS 

1CC3)=DATA FROM MEHORY 

1PRESS CONTINUE TO 

I RESTORE AND LOOP ON ERR 

J CHANGE TO LOOP TEST 



EOT 



02 615 

0261? 
§262§ 
§2621 
02f22 

§2§23 

§2624 
§2625 
§2626 
§2627 

02*31 

•8*32 
02433 

§2634 
§2635 
§2636 
§2*37 
§2*4ft 
02*41 



t52 4@§ 
12 6620 
04102? 
151408 
12S2&4 
000775 

t?S62§ 
02l0£g 
»25§g§ 
J064S4 
063077 
?. 5*4*0 
175224 
§§•772 



I A TEST OF Ay TO J fcCRiTH EM T/ DECREMENT 

I THIS TEST fcXLL IfLSl»F:?; THAT REGISTERS 20-37 

IfM) NOT" CHANGE VALUE fc«E&i REFPERANCED WITHOUT A 
JIftDIftEC? BIT. ' . . - 



J.D0* 



ID! f 



102000 
151112 

. 15262$ 
iff 757 
101010 ID2I 



SUB «#§ 
SUE 2"^ 2 
SOBER* 5*1 
ST4 §^£g*2 
INC 2#2 ' 

SU12R 3#3 
L0A 0*0*2 
LDA 1**0'* 2 

SUB* 0*'t«S2R 
MALT * "' 
iWC 2,2 
WOVIR* 3#3#S1R 

j» im*i' 

ABC 0*S 
W¥t#" 2#2#S2C 
JMP 112' * 
SUBZR 2#2 
JUP ID0'+2 
HOW @»f 



I FIRST PASS STORES <0> 
JIN REGISTERS 20-37'* " 
iSECGNU PASS STORES (-11 

iiNC ADDRESS 

I ITERATION COtJWT OF 20 



I SET ITERATIOf) COyUT 

iLOOK FQR A CMAPGE 
$10 'TO teFFElAMCES 
iTO ACfT© INC/DEC LOCATIONS 

*C<2>"ADDRESS.»C<0>eFiRST 
i EEFFERANCE* C'< t >»S£CQND 
I 60 THROUGH' ALL " IMC/DEC 

intmst-ms ~ ; 

I FIRST* *0R SECOND PASS 
IS£C0MB#EX1T TEST 
JCC2 .'^100000 " 

ICHA^OE TO LOOP TEST 



•ttt 



02 6 42 


029124 


tf2t>43 


02 41 12 


02 644 


1 7662 f 4 


02645 


1 7 5220 


03 6 46 


13 7415 


02647 


000 7 76 


02 6 50 


5542 7 


'/J2651 


32 742 7 


026 52 


325427 


026 53 


1 3641 4 


02654 


00 r -i4i'j 


92 65 5 


0241 13 


02656 


1 7 5220 


02657 


13741 5 


02660 


000 7 70 


02661 


10 1 404 


02662 


0,33761 


•52 663 


'30 40 7 


02664 


630 7 7 


02665 


-3 5542 7 


02666 


060377 


02 66 7 


02 742 7 


32670 


025427 


02671 


00(3774 



ID At 



IDSl 



LDA 0*Ci 74X 
LOA ! jMSI££ 
SUB'iM 3*3 
M0V2R 3*3 
AND* 1*3*SNR 
JMP .-2 



ST A 3 

LDA I 
LDA 1 
SUB# 
JMP 1 
LDA i 
MOVeR 
AND* 
JMP I 
INC 
JMP I 
JMP I 



#27,3 
#§2 7*3 
*27,3 
1 #3*S2R 
D5 

*C43 
3*3 
l#3*SNR 
D4 + 6 
#0*SfcR 
D4 + 1 
D6*I 



ID6: 



HALT 

STA 3*27*3 

N10P CPU 
LDA l*927#3 
LDA 1*27*3 
JMP ID5+1 



ICHECK THAT LOCATIONS 

1 432 7 # 202 1» 102 7 ETC ArlE 
J»NfOT AUTO INCREMENT LOC- 
1 ATI QMS. 



I STORE SOME DATA 

J DID IT CHANGE VIA 

I THE INDIRECT REFFERANCE? 

IYES IT FAILED. 
INO ITS OK. 



ICC3)=DATA STORED*C<n = 

1DATA AFTER INDIRECT. 

I SYNC 7-A74 - 

JBMA INPUT TO AND GATE 

JFAILED. 



YVY 



JAOIO IMGREBENI CHECK 

I COUNT ALL TftE AtJT© INCREMENT REGISTERS FRON 

i6§«§§~77777 

jcheck*'the' value against a apd instruction* press 

* continue after a halt to loop qh errur." ** 



§2672 


!S252§ ID10t 


5UB2L 0#i 


§2673 


176400 


SUB 3#3' 


§2614 


152 620 


SUBSR' 2#2 


•2675 


151240 


mwu 2*#2 


02(76 


I 51220 


MQV&R 2#2 


S2677 


§51420 


STA 2#2i#3 


402700 §60377 


NIOP* CPU 


§2701 


027420' 


LBA 1*§20»3 


02702 


02 5420 


LDA i'»20»3' 


02703 


146014 


ADC#'2»IjS2R 


02704 


#63077 


MALT * ** 


02705 


146014 


ftD€# 2#'1#SZR 


•27i6 


102400 


SUB §#§"* 


02707 


1 1 mm 


•ADS f*#2 


02710 


I 511 13 


MQVL#* 2#2#SNC 


0271 S 


000766 


MP ID10+5 


02712 


175400 


. INC 3#3 "' 


§2713 


024076 


LDA 1VC10 ' 


02714 


136414 


SyB#"l#3^SZR 


02715 


•00757 


JUP I9'10+2 


0271 6 


101010 IDllt 


MOV#' §#0" 



ICC0)=1^LOOP ON ERROR SWITCH 
JCC35*0-7#REGL3TER POINTER 



I STARTING VALUE Of 60000 
i SETUP AUTO INC REGISTER 
"l.SYNC AT 7-AW 
I THIS SMOULB INC THE RES 
fO€13=VALUE OF AUTO RE6 
iC<&)»CORR£CT VAL«£-r" 
IC<3)+20*FAU.ING 'RES' 

I CLEAR TO LOOP 0# ERROR 

I TEST FOR COUNT OF 100000 

J NOT YET 

I ADVANCE TO NEXT AUTO RES 

ITEST FOR LAST REGISTER 

I CHANGE TO LOOP TEST 



I AUTO DECREMENT CHECK 

J COUNT ALL THE AUTO DECREMENT REGISTERS FRON 20000-0 
IGWEGK TEH VALUE AGAINST A -ADD INSTRUCTION. ' PRESS " 
I CONTINUE AFTER A ERROR TO SCOPE THE FAILURE 



02717 
02720 

02721 

•2722 

02723 

02724 

0272S 

02726 

02727 

•2730 

•2731 

02732 

02733 

02734 

02735 

02736 

§£737 

00740 

•2741 

§2742 



102520 

,176400 

IS2&20 

151220 
151220 
051430 
060377 
027430 
025430 
132014 
063077 
I3fiii4 
102400 
112404 
§§§767 
I754ii 
0S4076 
136414 
00076* 
101010 



I014S 



SUB1L 0#0 
SUB 3*3 

SUB2R' 2#2. 
WGVIR 2*2 
MOVER 2*2 
STA 2#3i*3 
NIOP CPU" 
LBA 1#§30#3 
LDA IV 30* 3' 
ABC# " t * 2V SZR 
MALT "* * 
ADC# 1#2#S2R 

sub •;• * 

0»2#S2R 
Ibl'4+5 
3#3' " 
1VC10 
1*3#S2R 



SUB 
JMP 
INC 
L9A 

SUB# 



ID158 



JNP lD14'+2 

t#ov# 0;0" 



lCCi)=l#LOOP ON ERROR SUIT 
JCC3> "0*7; REGISTER POINTER 



# STARTING VALUE OF 20000 
i SETUP AUTO DECfteHENT REG 
I SYNC AT, 7-74 
I SHOULD' DECREMENT THE REG 
ICC DEVALUE OF AUTO DEC ' REG 
i C*C2 > ^CORRECT " VALUE* I " 
fC : €3H3§~FAILIN6 AUTO RES 

I CLEAR TO LOOP TEST 
ITEST FOR 2ER0 COUNT 

JABVANCE TO NEXT AUTO REG 
ITEST FOR LAST AUTO 
INCREMENT REGISTER 

1 CHANGE TO LOOP TEST 



Y¥¥ 



*A TEST OF APT© INCREMENT 

i£ACH LOCATION IN THE BUFFER IS SET TO A ADDRESS 

J PATTERS- I ' ' 

J VIA TME'*AUTO INDEX REGISTERS. THE REGISTERS COUNTING 

I ABILITY AS WELL AS THE ' DATA IS CHECKED. TlfE PROGRAM 

IWILL^LOOP ON ERROR IF CONTINUED AFTER « MALT.' 



§2743 


192088 




ABC 0^0 


S2744\ 


1764§§ 


iB2m 


SUB 3'# 3 


§2145 


^#301 14 




LDA 2* BUFF 


mim 


051420 




STA 2V20#3 


§mm 


§6§3T7 




NIOP CPU' 


mtm 


0^53420 




STA 2#§2§#3 


§2751 


02 5420 




LDA 1*20*3' 


mtm 


146015 


XDSlt 


ADC#"2*I*$NR 


§2753 


#§§415 


, 


amp 1D23* 


§2154 


B^mit 




HALT' 


§2755 


102*^0 




SUB §*§ 


§2756 


041000 


ID22S 


STA 0*0*2 


§2757 


11&4M 




SUB §#2 


ii76i 


§24115 




LD§ l*FIN 


mtu 


132414 




SOB#""I*2*S2R 


§27*2 


§§0744 




JMP I 020V 2 


02763 


17S4S0 




IMC 3#3 ' 


§8764 


§&4§7y 




LDA 1VC10 • 


9%rm 


136414 




■ SUi# 1*3* SIR 


§27<S# 


•0075T 




JMP IDBO'+I 


§2747 


®0§4»&\ 




JMP IDS 4" 


§8770 


025001 


ID23I 


LDA 1*1*2 


•877! 


132415 


" 


sub#"i;2*snr 


§277$ 


§§§7&4 




JMP 1022" 


02773 


• 43077 




HALT 


§2774 


§761 




JMP ID22-1 


§£775 


101010 


ID24! 


MQV# 0*0" 



I FIRST BUFFER LOCATION 

J SETUP AtJTO INC REGISTER 

f SYNC AT 7-A74 

I STORE C<2>* WA AUTO IMC 

ICCAUTO)" TO CC1> 

I CHECK ' INCREMENT FEATURE 

JITS OK" 

I OUTVALUE OF *AUT0 IMC RES 

#C"<2J=CORR£CT VALUE- 1. 

JC'C3 5*20=AOTO REGISTER INVOLVED 

JCCBOFFER) DESTROYED AFTER TEST 

IC(l>«FtNAL ADDRESS . 

J TEST " FOR END OF" BUFFER 

I GO TO NEXT AUTO REGISTER 

i TEST "FOR LAST ONE 



160 TO NEXT TEST 

I AUTO INC VALUE OK BUT 
J DATA STORED IS URONG 
JCCl>sDATA'FROM MEMORY 
I c*2 I ^CORRECT ' VALUE" 
JCC3)+20»AQTO REGISTER 
I CHANGE TO LOOP TEST 



f ft 



IA TEST OF AUTO DECREMENT 

I EACH LOCATION IN THE BUFFER IS SET TO A ADDRESS 
JPATTERN+* VIA THE AUTO DECREMENT REGISTERS- THE 
^REGISTERS COUNTING ABILITY AS WELL AS THE DATA IS 
ICHECKED.THE PROGRAM WILL LOOP ON ERROR IF CONTINUED 
! AFTER A" HALT 



02778 
02117 
03008 
03081 
03002 
03083 
03804 
03005 
03006 
300 7 
03010 
03011 
03012 
03013 
03014 
03015 
03016 
03017 
03020 
03021 
03022 

03023 
03024 
03025 

03026 
03027 



102000 
1 76400 
0301 15 
051 430 
060377 
053438 
025430 
132015 
00041 5 
063077 
102400 
041000 
1 13000 
0241 14 
132414 
000764 
175400 
024076 
136414 
000757 
000406 

025377 
132415 
000764 
063077 

000761 



1 030 I 



ID31: 



ID32I 



ID33S 



ADC 


0#0 


SUB 


3#3 


LDA 


2'* FIN 


STA 


2#30#3 


NIOF 


» CPU* 


STA 


2*§30*3 


LDA 


1*30, 3 


ADC* 


f 1#2*SNR 


JHP 


ID33 


HAL1 




SUB 


0*0 


STA 


0*0,2 


ADD 


0*2' 


LDA 


1*BUFF 


SUB* 


< 1*2*SER 


JHP 


ID30*3 


INC 


3*3 


LDA 


1*C10 


SUB* 


^ 1*3*S2R 


JMP 


ID30+2 


J MP 


ID34 


LDA 


l*-l*2 


SUB* 


' i;'2,SNR 


JHP 


1D32 


HAL! 




JMP 


ID32-1 



JC<8)=-I*L00P UN ERR SWITCH 

1CC3>=0*FIR5T INDEX USED 

J FINAL BUFFER ADDRESS 

J TO AUTO DECREMENT REGISTER 

I SYNC AT 7-A74 

* STORE CC2*) IN BUFFER VIA 

JC<1>«UALU£ OF AUTO DEC REG 

JC<2>=C0RRect VALUE+1 

*CC3>«3e=AUTQ Rfi.c-t.sTER 

IAUTO DECREMENT FAILto 

J CLEAR TO LOOP ON ERROR 

i CLEAR OUT THE PATTERN 

JC<2>-C<2>-1 

J TEST FOR BEGIN OF BUFFER 



I ADVANCE TO NEXT AUTO REG 

J TEST FOR END 

1AGAIN WITH THIS REGISTER 

J 60 TO NEXT TEST 

IAUTO DEC VALUE IS OK 

I BUI THE DATA STORED IS NOT 

1 CO > -DATA FROM BUFFER 
JCC2>=C0RRECT VALUE 
JC(3>+30=AUTO REGISTER 



03030 101010 ID34S 



MOW 0*0 



J CHANGE TO LOOP TEST 



;A TEST OF AUTO INC USING ISZ 

;TKE PROGRAM STORES A (- 1) IN THE BUFFER, 

;A ISZ INSTRUCTION VIA AUTO INCREMENT REGISTER 27 

:THEN INCREMENTS THE BUFFER. IF AN ERROR SHOULD OCCUR 

;PRESSING CONTINUE WILL PLACE THE PROGRAM IN A FAILING 
;LOOP UNTIL RESTARTED. 



03031 
03032 
03033 
03034 
03035 
03036 
03037 
03040 
03041 
03042 
03043 
03044 
03045 
03046 



102520 HMO: 

126000 

030114 

034115 

050027 ID41; 

045001 

060377 

012027 

102401 

113001 

063077 

156414 

000770 

101010 ID42; 



SUBZL 0, 
ADC 1, 1 
LDA 2, BUFF 
LDA 3, FIN 
STA 2, 27 
STA 1, 1, 2 
NIOP CPU 
ISZ §27 
SUB 0, S SKP 
ADD S 2, SKP 
HALT 

SUB# 2,3,SZR 
JMP EMI 
MOV# 0, 



C(0)=1, LOOP ON ERROR SWITCH 

C(l>=-1 

FIRST LOCATION IN THE BUFFER 

FINAL LOCATION EM THE BUFFER 

SETUP AUTO INCREMENT REG 

STORE (-1) IN MEMORY 

SYNC AT 7-74 

INCREMENT AND SKIP 

ISZ FAIL TO SKIP 

INC TO NEXT LOG 

EXAMINE LOG 27 

TEST FOR END OF BUFFER 

;CHANGE TO LOOP TEST 



;A TEST OF AUTO INC/DEC 

;VIA REGISTER 34 THE BUFFER IS FILLED WITH JSR INT. 

;A JSR VIA REGISTER 25 IS EXECUTED, THE RETURN FROM 

;THE BUFFER IS CHECKED. PRESS CONTINUE TO LOOP ERROR, 

;A CONSTANT QSR Q f 3) 
FIRST BUFFER LOCATION 
FINAL BUFFER LOCATION 
C(34) POINTS TO THE BUFFER 
C(3)= -WORDS IN BUFFER 
FILL BUFFER WITH (JSR) 



;C(0)=1, LOOP ON ERROR SWITCH 

SETUP AUTO INDEX REG 
GO TO THE BUFFER 
EFFECTIVELY SUBTRACT 1 
FROM C(3) 

C(3>=POINT BUFFER ENTERED 
C(2)=CORRECT-l 
C(25)=AUTO INC VALUE 
25=AUTO INC REGISTER 
TEST FOR END OF BUFFER 

;CHANGE TO LOOP TEST 
;A CONSTANT 



03047 024425 


ID44: 


LDA 1,CD3J 


03050 034114 




LDA 3» BUFF 


03051 030115 




LDA 2, FIN 


03052 050034 




STA 2, 34 


03053 156400 




SUB 2, 3 


03054 046034 




STA 1,034 


03055 175404 




INC 3»3 ? SZR 


03056 000776 




JMP . -2 


03057 102520 


ID45; 


SUBZL 0, 


03060 024114 




LDA 1, BUFF 


03061 044025 




STA 1,25 


03062 006025 




JSR §25 


03063 174400 




NEG3»3 


03G64 174000 




COM 3» 3 


03065 136014 




ADC# 1,3,SZR 


03066 102401 




SUB 0. 0, SKP 


03067 107001 




ADD 0, 1, SKP 


03070 063077 




HALT 


03071 132014 




ADC# 1»2,SZR 


03072 000767 




JMP ID45+2 


03073 101011 


ID46: 


MOV# 0, 0, SKP 


03074 005400 


CIDJ: 


JSR 0,3 



t f f 



03375 


324114 1D53J LDA l*aiJFF 


•33376 


ks 331 15 


LDA 2,FM 


33077 


1^2 520 


5UB2L 0*0 


03100 


50033 


STA 2*33 


3 31 5 1 


00 6,3 33 


JSR #33 


031. -J 2 


1 S641 4 


SUB# 2*3*SfcS 


331 '43 


i 374 J] 


SUB 3*3*SKP 


3 3 i 4 


1 12401 


sua 0*2#sxp 


33t«JS 


6 3077 


HALT 


•/J 310 6 


1 32tf 1 4 


ADC# 1*2* S2R 


03 HI 7 


'3«377l 


JMP 1D5«*3 



J FIRST LOCATION OF THE 8I3FF 
JFINAL LOCATION OF THE. BUFF 

fC<0)=i*LUGP ON ERKOK SWIT 
I SETUP AUTO DECkEHENT 
160 TO THE BUFFEH 
1CC3>=PC FHOn BUFFEH 
*C<2)=INITAL VALUE OF AUTO . 
I DEC REGISTER 33 
I PROG WILL LOOP ON ERR OH 
I TEST FOd 3£GIN UP BUFF 



931 10 


3 3 4402 


DCJCA; 


LDA 3*.-*- 2 


031 1 I 


1 5200 J 




ADC 2*2* SKP 


H 3 1 I 2 


3 3 4130 '3 




4000 


931 13 


020 1 1 2 




LDA 0*. -IS I HE 


331 14 


1 16432 




SUB 60 0*3* SEC 


331 15 


002421 




JMP >*LAST 


03 116 


132 620 




SUli^R 0*-J 


031 17 


143035 


DGCX: 


ADD 2*3*3NR 


33129 


000413 




JMP DGC8 


43121 


J41403 




STA 0*0*3 


•33122 


06^3 7 7 




NIOP CPU 


VJ3123 


31 S430 




DSi 0*3 


03124 


i 3 1010 




MGV# tf#tf 


33125 


025 433 




LDA 1*0*3 


03126 


1 22'J 1 5 




ADC# 1*3*SNR 


33127 


030 7 70 




JMP DGCX 


33133 


152430 




SUB 2*2 


33131 


3630 77 




HALT 


03132 


033 76 5 




JMP DGCX 


33133 


020757 


DGC8J 


LDA 0*DUGA+2 


03134 


1 1 7000 




ADD 0*3 


03135 


00v1 7 54 




JMP D6CA+1 


03136 


033162 


LAST: 


8EG1 



J TEST DS* COUNT IN 

1EACH MEMORY MODULE 

lC(2) = i£HRua SWITCH. 



I SYNC 7- A 74 



JCC1 )=R£SULT OF D3£ 
*CC0) = VALUE BEFORE DS'£ 



1G0 TO NEXT LOCATION 



END 



